blob: df3bfd75f2434d94c9f0526ebb47a38e7e718f4e (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do compile }
! PR fortran/36192.f90
!
program three_body
real, parameter :: n = 2, d = 2
real, dimension(n,d) :: x ! { dg-error "of INTEGER type|of INTEGER type" }
x(1,:) = (/ 1.0, 0.0 /)
end program three_body
! { dg-prune-output "have constant shape" }
|
