https://gcc.gnu.org/bugzilla/show_bug.cgi?id=34392
Dominique d'Humieres <dominiq at lps dot ens.fr> changed:
What |Removed |Added
----------------------------------------------------------------------------
Blocks| |20585
--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> FLOAT takes the same code path as REAL (w/o kind argument). With -std=f2003
> a BOZ in FLOAD should be rejected.
For 4.6 up to trunk (6.0) with -std=f2003 I get
print *, float(Z'3FFF0080')
1
Error: GNU Extension: non-default INTEGER kind argument to float intrinsic at
(1)
> For SNGL: It will probably solved by PR 34505, which should allow only
> real arguments for SNGL.
and
print *, sngl(Z'3FFF000000000080')
1
Error: 'a' argument of 'sngl' intrinsic at (1) must be REAL
4.3.1 up to 4.5 gives
print *, sngl(Z'3FFF000000000080')
1
Error: Type of argument 'a' in call to 'sngl' at (1) should be REAL(8), not
INTEGER(16)
What is missing?
Referenced Bugs:
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=20585
[Bug 20585] [meta-bug] Fortran 2003 support
