Fortran/gfortran/regression/pr88048.f90 - llvm-test-suite - Git at Google

 ! { dg-do compile }
 ! PR fortran/88048
 program p
    integer, parameter :: a(2) = 1
    data a(2) /a(1)/  ! { dg-error "shall not appear in a DATA statement" }
    print *, a
 end
	! { dg-do compile }
	! PR fortran/88048
	program p
	integer, parameter :: a(2) = 1
	data a(2) /a(1)/ ! { dg-error "shall not appear in a DATA statement" }
	print *, a
	end