fortran/7541: DATA statement for double precision variables does not work

fortran/7541: DATA statement for double precision variables does not work

[rguenth]

>Number:         7541
>Category:       fortran
>Synopsis:       DATA statement for double precision variables does not work
>Confidential:   no
>Severity:       critical
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          rejects-legal
>Submitter-Id:   net
>Arrival-Date:   Thu Aug 08 04:56:02 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator:     rguenth@tat.physik.uni-tuebingen.de
>Release:        g77 version 3.0.5 20020403 (prerelease) (Fortran Frontend version 0.5.26 20020403 (prerelease))
>Organization:
>Environment:
SuSE linux 7.2, custom gcc 3.0.5
>Description:
g77 cannot compile NAG library due to unability to handle f.i.

      DOUBLE PRECISION FUNCTION X02AHF(X)
      DOUBLE PRECISION                 X
      DOUBLE PRECISION X02CON
      DATA X02CON /Z'4690000000000000' /
      X02AHF = X02CON
      RETURN
      END

g77 produces
bellatrix:/tmp$ g77 -c x02ahft.f 
x02ahft.f: In function `x02ahf':
x02ahft.f:13: 
         DATA X02CON /Z'4690000000000000' /
                        ^
Integer at (^) too large

the code compiles ok with intel fortran and lahey fortran. x02ahft.f from NAG library is attached.
>How-To-Repeat:
g77 -c x02ahft.f
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: application/octet-stream; name="x02ahft.f"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="x02ahft.f"

ICAgICAgRE9VQkxFIFBSRUNJU0lPTiBGVU5DVElPTiBYMDJBSEYoWCkKQyAgICAgTUFSSyA5IFJF
TEVBU0UuIE5BRyBDT1BZUklHSFQgMTk4MS4KQyAgICAgTUFSSyAxMS41KEY3NykgUkVWSVNFRC4g
KFNFUFQgMTk4NS4pCkMKQyAgICAgKiBNQVhJTVVNIEFSR1VNRU5UIEZPUiBTSU4gQU5EIENPUyAq
CkMgICAgIFJFVFVSTlMgVEhFIExBUkdFU1QgUE9TSVRJVkUgUkVBTCBOVU1CRVIgTUFYU0MgU1VD
SCBUSEFUCkMgICAgIFNJTihNQVhTQykgQU5EIENPUyhNQVhTQykgQ0FOIEJFIFNVQ0NFU1NGVUxM
WSBDT01QVVRFRApDICAgICBCWSBUSEUgQ09NUElMRVIgU1VQUExJRUQgU0lOIEFORCBDT1MgUk9V
VElORVMuCkMKQyAgICAgLi4gU2NhbGFyIEFyZ3VtZW50cyAuLgogICAgICBET1VCTEUgUFJFQ0lT
SU9OICAgICAgICAgICAgICAgICBYCiAgICAgIERPVUJMRSBQUkVDSVNJT04gWDAyQ09OCiAgICAg
IERBVEEgWDAyQ09OIC9aJzQ2OTAwMDAwMDAwMDAwMDAnIC8KQyAgICAgLi4gRXhlY3V0YWJsZSBT
dGF0ZW1lbnRzIC4uCiAgICAgIFgwMkFIRiA9IFgwMkNPTgogICAgICBSRVRVUk4KICAgICAgRU5E
Cg==

Re: fortran/7541: DATA statement for double precision variables does not work

[Richard Guenther]

The following reply was made to PR fortran/7541; it has been noted by GNATS.

From: Richard Guenther <rguenth@tat.physik.uni-tuebingen.de>
To: <toon@gcc.gnu.org>, <gcc-bugs@gcc.gnu.org>, <gcc-prs@gcc.gnu.org>,
   <nobody@gcc.gnu.org>, <gcc-gnats@gcc.gnu.org>
Cc:  
Subject: Re: fortran/7541: DATA statement for double precision variables does
 not work
Date: Thu, 8 Aug 2002 18:07:12 +0200 (CEST)

 On 8 Aug 2002 toon@gcc.gnu.org wrote:
 
 > Synopsis: DATA statement for double precision variables does not work
 >
 > Responsible-Changed-From-To: unassigned->toon
 > Responsible-Changed-By: toon
 > Responsible-Changed-When: Thu Aug  8 07:35:08 2002
 > Responsible-Changed-Why:
 >     Fortran Maintainer
 > State-Changed-From-To: open->closed
 > State-Changed-By: toon
 > State-Changed-When: Thu Aug  8 07:35:08 2002
 > State-Changed-Why:
 >     Not legal code, but is compilable as an extension to
 >     Fortran 77
 
 Oh well - please make this a feature request to support this in g77 then.
 Its sad we cant compile the NAG library.
 
 Richard.
 
 --
 Richard Guenther <richard.guenther@uni-tuebingen.de>
 WWW: http://www.tat.physik.uni-tuebingen.de/~rguenth/
 The GLAME Project: http://www.glame.de/
 

Re: fortran/7541: DATA statement for double precision variables does not work

[toon]

Synopsis: DATA statement for double precision variables does not work

Responsible-Changed-From-To: unassigned->toon
Responsible-Changed-By: toon
Responsible-Changed-When: Thu Aug  8 07:35:08 2002
Responsible-Changed-Why:
    Fortran Maintainer
State-Changed-From-To: open->closed
State-Changed-By: toon
State-Changed-When: Thu Aug  8 07:35:08 2002
State-Changed-Why:
    Not legal code, but is compilable as an extension to
    Fortran 77

http://gcc.gnu.org/cgi-bin/gnatsweb.pl?cmd=view%20audit-trail&database=gcc&pr=7541