mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:26:48 +00:00
940871dd28
Fortran 2018 requires that a compiler allow objects whose rank + corank is 15, and that's our maximum; detect and diagnose violations. Differential Revision: https://reviews.llvm.org/D125153
32 lines
1.5 KiB
Fortran
32 lines
1.5 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Enforce limits on rank + corank
|
|
module m
|
|
!ERROR: 'x' has rank 16, which is greater than the maximum supported rank 15
|
|
real :: x(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
|
|
!ERROR: 'y' has rank 16, which is greater than the maximum supported rank 15
|
|
real, allocatable :: y(:,:,:,:,:,:,:,:,:,:,:,:,:,:,:,:)
|
|
!ERROR: 'z' has rank 16, which is greater than the maximum supported rank 15
|
|
real, pointer :: z(:,:,:,:,:,:,:,:,:,:,:,:,:,:,:,:)
|
|
!ERROR: 'w' has rank 16, which is greater than the maximum supported rank 15
|
|
real, dimension(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1) :: w
|
|
!ERROR: 'a' has rank 15 and corank 1, whose sum is greater than the maximum supported rank 15
|
|
real :: a(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)[*]
|
|
!ERROR: 'b' has rank 14 and corank 2, whose sum is greater than the maximum supported rank 15
|
|
real :: b(1,1,1,1,1,1,1,1,1,1,1,1,1,1)[1,*]
|
|
!ERROR: 'c' has rank 14 and corank 2, whose sum is greater than the maximum supported rank 15
|
|
real :: c
|
|
dimension :: c(1,1,1,1,1,1,1,1,1,1,1,1,1,1)
|
|
codimension :: c[1,*]
|
|
interface
|
|
!ERROR: 'foo' has rank 16, which is greater than the maximum supported rank 15
|
|
real function foo()
|
|
dimension :: foo(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
|
|
end function
|
|
end interface
|
|
contains
|
|
function bar() result(res)
|
|
!ERROR: 'res' has rank 16, which is greater than the maximum supported rank 15
|
|
real :: res(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
|
|
end function
|
|
end module
|