1! { dg-do compile }
2 write (*,"(a)") char(12)
3 CHARACTER*80 A /"A"/ ! { dg-error "Unexpected data declaration statement" }
4 REAL*4 B ! { dg-error "Unexpected data declaration statement" }
5 write (*,"(a)") char(12)
6 DATA B / 0.02 / ! { dg-warning "Obsolescent feature: DATA statement" }
7 END
8