11 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12subroutine subr(a,b,n,m)3 real n,m4!ERROR: Must have INTEGER type, but is REAL(4)5!ERROR: Must have INTEGER type, but is REAL(4)6 integer a(n,m)7!ERROR: Rank of left-hand side is 2, but right-hand side has rank 18!ERROR: Subscript expression has rank 2 greater than 19 a = a(a,j)10end11