[Bug fortran/18026] New: gfortran: regression w.r.t. g77, lacks -ftypeless-boz

[Bug fortran/18026] New: gfortran: regression w.r.t. g77, lacks -ftypeless-boz

[anlauf at hep dot tu-darmstadt dot de]

Hi,

the following code does not compile with gfortran, although it does
with g77:

      PROGRAM GFCBUG19
      DOUBLE PRECISION inf, nan
c IEEE exceptional values on Intel x87
      DATA inf / Z'7FF0000000000000' /
      DATA nan / Z'FFF8000000000000' /
      print *, inf, nan
      END

% g77 gfcbug19.f -ftypeless-boz && ./a.out
  INF  NAN
% gfc gfcbug19.f -ftypeless-boz
f951: error: unrecognized command line option "-ftypeless-boz"
% gfc gfcbug19.f
 In file gfcbug19.f:4

      DATA inf / Z'7FF0000000000000' /                                  
                                   1
Error: Integer too big for integer kind 4 at (1)
 In file gfcbug19.f:5

      DATA nan / Z'FFF8000000000000' /                                  
                                   1
Error: Integer too big for integer kind 4 at (1)


Cheers,
-ha

-- 
           Summary: gfortran: regression w.r.t. g77, lacks -ftypeless-boz
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: anlauf at hep dot tu-darmstadt dot de
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18026

[Bug fortran/18026] gfortran: regression w.r.t. g77, lacks -ftypeless-boz

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-10-15 23:15 -------
Confirmed.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
           Severity|normal                      |enhancement
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2004-10-15 23:15:28
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18026

[Bug fortran/18026] gfortran: regression w.r.t. g77, lacks -ftypeless-boz

[tobi at gcc dot gnu dot org]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
OtherBugsDependingO|                            |19292
              nThis|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18026

[Bug fortran/18026] boz initialization of REALs fails

[tobi at gcc dot gnu dot org]

------- Additional Comments From tobi at gcc dot gnu dot org  2005-03-13 19:05 -------
While the compile-time error has disappeared, we now give the following
incorrect output at runtime:
[tobi@marktplatz tests]$ ./a.out
  9.218868437227405E+018  1.844449227389587E+019
[tobi@marktplatz tests]$         

The following testcase gives the expected result, though:
      PROGRAM GFCBUG19
      integer*8 infi, nani
      DOUBLE PRECISION inf, nan
      equivalence (infi, inf), (nani, nan)
!c IEEE exceptional values on Intel x87
      DATA infi / Z'7FF0000000000000' /
      DATA nani / Z'FFF8000000000000' /
      print *, inf, nan
      END
[tobi@marktplatz tests]$ ./a.out
               +Infinity                     NaN
[tobi@marktplatz tests]$       

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|gfortran: regression w.r.t. |boz initialization of REALs
                   |g77, lacks -ftypeless-boz   |fails


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18026

[Bug fortran/18026] boz initialization of REALs fails

[kargl at gcc dot gnu dot org]

------- Additional Comments From kargl at gcc dot gnu dot org  2005-03-15 21:05 -------
I've removed the "reject-valid" keyward because the code is not valid
Fortran 95.  From section 5.2.10, we have:

   If a data-statement-constant is a boz-literal-constant, the corresponding
   object shall be of type integer.  A data-stmt-constant that is a
   boz-literal-constant is treated as if the constant were an int-literal-
   constant with a kind-param that specifies the representation method with
   the largest decimal exponent range supported by the processor.


-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|rejects-valid               |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18026