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