1! { dg-do compile } 2! 3! PR fortran/40881 4! 5integer :: a(3) 6print *, 'Hello' 7data a/3*5/ ! { dg-warning "Obsolescent feature: DATA statement at .1. after the first executable statement" } 8end 9