blob: 5bceafda7621e8661f72b4f06ee77ba5f0830759 [file] [log] [blame]
! { 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