gcc/testsuite/gfortran.dg/pr36192_1.f90


1
2
3
4
5
6
7
8
9
10
11
12

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