flang/test/Semantics/bug121971.f90

! 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