summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/oldstyle_2.f90
blob: 8d84028880197bbfc7aae530ed8c03f9ee958a72 (plain)
1
2
3
4
! { dg-do compile }
subroutine foo(i) ! { dg-error "DATA attribute" }
  integer i /10/
end subroutine foo