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

[rguenth@tat.physik.uni-tuebingen.de]

>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==