gcc/testsuite/gfortran.dg/data_constraints_3.f90

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