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