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