1! { dg-do compile }
2! { dg-options "-std=f95" }
3!
4! PR fortran/34342
5!
6! Diagnose BOZ literal for non-integer variables in
7! a DATA statement. And outside DATA statements.
8!
9real :: r
10integer :: i
11r = real(z'FFFF') ! { dg-error "outside a DATA statement" }
12i = int(z'4455')  ! { dg-error "outside a DATA statement" }
13r = z'FFFF' + 1.0 ! { dg-error "outside a DATA statement" }
14i = z'4455' + 1   ! { dg-error "outside a DATA statement" }
15end
16