gcc/testsuite/gfortran.dg/pr36192.f90

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