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