2 ! { dg-options "-std=f95" }
6 ! Diagnose BOZ literal for non-integer variables in
7 ! a DATA statement. And outside DATA statements.
11 r = real(z'FFFF') ! { dg-error "outside a DATA statement" }
12 i = int(z'4455') ! { dg-error "outside a DATA statement" }
13 r = z'FFFF' + 1.0 ! { dg-error "outside a DATA statement" }
14 i = z'4455' + 1 ! { dg-error "outside a DATA statement" }