2 ! { dg-options "-std=f95 -pedantic" }
6 ! Some BOZ extensions where not diagnosed
9 integer :: j
= z
'000abc' ! { dg-error "BOZ used outside a DATA statement" }
10 data k
/x
'0003'/ ! { dg-error "nonstandard X instead of Z" }
11 data m
/'0003'z
/ ! { dg-error "nonstandard postfix" }