gcc/testsuite/gfortran.dg/pr95585.f90 - gcc - Git at Google

 ! { dg-do compile }

 program test
   integer, parameter :: a(2) = reshape([1, 2], a) ! { dg-error "before its definition" }
 end program
	! { dg-do compile }

	program test
	integer, parameter :: a(2) = reshape([1, 2], a) ! { dg-error "before its definition" }
	end program