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 "of INTEGER type|of INTEGER type" } 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 "must have constant shape" } 13