re PR fortran/78741 (ICE in gfc_get_symbol_decl, at fortran/trans-decl.c:1534)

[official-gcc.git] / gcc / testsuite / gfortran.dg / oldstyle_2.f90

! { dg-do compile }
subroutine foo(i) ! { dg-error "DATA attribute" }
  integer i /10/
end subroutine foo