PR ipa/83051
[official-gcc.git] / gcc / testsuite / gfortran.dg / oldstyle_2.f90
blob8d84028880197bbfc7aae530ed8c03f9ee958a72
1 ! { dg-do compile }
2 subroutine foo(i) ! { dg-error "DATA attribute" }
3 integer i /10/
4 end subroutine foo