blob: 687a465f8c08e63ce97487afc7f780dcfd309ae7 [file] [log] [blame]
! { 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" }