blob: 5bceafda7621e8661f72b4f06ee77ba5f0830759 (
plain)
1
2
3
4
5
6
7
|
! { 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
|
