1! RUN: %python %S/test_errors.py %s %flang_fc1 2subroutine subr(a,b,n,m) 3 real n,m 4!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 1 8!ERROR: Subscript expression has rank 2 greater than 1 9 a = a(a,j) 10end 11