gcc/testsuite/gfortran.dg/pr36192_1.f90

   1 ! { dg-do compile }
   2 ! PR fortran/36192
   3 program three_body
   4    real, parameter ::  n = 2, d = 2
   5    real, dimension(n,d) :: x_hq ! { dg-error "Expecting a scalar INTEGER" }
   6    call step(x_hq)
   7    contains
   8    subroutine step(x)
   9       real, dimension(:,:), intent(in) :: x
  10    end subroutine step
  11 end program three_body
  12 ! { dg-prune-output "Rank mismatch in argument" }