[Bug fortran/34392] BOZ diagnost invalid Fortran 2003 use with -std=f2003 warnings

[dominiq at lps dot ens.fr]

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