1! { dg-do compile }
2! PR fortran/36192
3program 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
11end program three_body
12! { dg-prune-output "Rank mismatch in argument" }
13