32 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Enforce limits on rank + corank3module m4 !ERROR: 'x' has rank 16, which is greater than the maximum supported rank 155 real :: x(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)6 !ERROR: 'y' has rank 16, which is greater than the maximum supported rank 157 real, allocatable :: y(:,:,:,:,:,:,:,:,:,:,:,:,:,:,:,:)8 !ERROR: 'z' has rank 16, which is greater than the maximum supported rank 159 real, pointer :: z(:,:,:,:,:,:,:,:,:,:,:,:,:,:,:,:)10 !ERROR: 'w' has rank 16, which is greater than the maximum supported rank 1511 real, dimension(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1) :: w12 !ERROR: 'a' has rank 15 and corank 1, whose sum is greater than the maximum supported rank 1513 real :: a(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)[*]14 !ERROR: 'b' has rank 14 and corank 2, whose sum is greater than the maximum supported rank 1515 real :: b(1,1,1,1,1,1,1,1,1,1,1,1,1,1)[1,*]16 !ERROR: 'c' has rank 14 and corank 2, whose sum is greater than the maximum supported rank 1517 real :: c18 dimension :: c(1,1,1,1,1,1,1,1,1,1,1,1,1,1)19 codimension :: c[1,*]20 interface21 !ERROR: 'foo' has rank 16, which is greater than the maximum supported rank 1522 real function foo()23 dimension :: foo(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)24 end function25 end interface26 contains27 function bar() result(res)28 !ERROR: 'res' has rank 16, which is greater than the maximum supported rank 1529 real :: res(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)30 end function31end module32