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