https://gcc.gnu.org/bugzilla/show_bug.cgi?id=34392
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Priority|P3 |P4
Status|NEW |RESOLVED
Resolution|--- |FIXED
--- Comment #5 from kargl at gcc dot gnu.org ---
Fixed by r273747.
No back port.
% cat > a.f90
print *, sngl(Z'3FFF000000000080')
print *, float(Z'3FFF0080')
end
% gfcx -o z a.f90
a.f90:1:14:
1 | print *, sngl(Z'3FFF000000000080')
| 1
Error: 'a' argument of 'sngl' intrinsic at (1) must be REAL
a.f90:2:15:
2 | print *, float(Z'3FFF0080')
| 1
Error: BOZ literal constant at (1) cannot appear in the FLOAT intrinsic
subprogram
