gcc-4.9/gcc/testsuite/gfortran.dg/data_constraints_3.f90


1
2
3
4
5
6
7
8

! { dg-do compile }
!
! PR fortran/40881
!
integer :: a(3)
print *, 'Hello'
data a/3*5/ ! { dg-warning "Obsolescent feature: DATA statement at .1. after the first executable statement" }
end