mirror of
https://github.com/intel/llvm.git
synced 2026-01-22 15:41:35 +08:00
11 lines
334 B
Fortran
11 lines
334 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
subroutine subr(a,b,n,m)
|
|
real n,m
|
|
!ERROR: Must have INTEGER type, but is REAL(4)
|
|
!ERROR: Must have INTEGER type, but is REAL(4)
|
|
integer a(n,m)
|
|
!ERROR: Rank of left-hand side is 2, but right-hand side has rank 1
|
|
!ERROR: Subscript expression has rank 2 greater than 1
|
|
a = a(a,j)
|
|
end
|