Re: fortran/5122: g77 rejects accepted use of INTEGER*2 as type of DATA statement loop index

Re: fortran/5122: g77 rejects accepted use of INTEGER*2 as type of DATA statement loop index

[toon]

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

From: toon@gcc.gnu.org
To: gcc-bugs@gcc.gnu.org, gcc-gnats@gcc.gnu.org, gcc-prs@gcc.gnu.org,
  nobody@gcc.gnu.org, toon@gcc.gnu.org, toon@moene.indiv.nluug.nl,
  vtd2000@hotmail.com
Cc:  
Subject: Re: fortran/5122: g77 rejects accepted use of INTEGER*2 as type of DATA statement loop index
Date: 14 Dec 2001 19:27:12 -0000

 Synopsis: g77 rejects accepted use of INTEGER*2 as type of DATA statement loop index
 
 Responsible-Changed-From-To: unassigned->toon
 Responsible-Changed-By: toon
 Responsible-Changed-When: Fri Dec 14 11:27:11 2001
 Responsible-Changed-Why:
     My Job.
 
 http://gcc.gnu.org/cgi-bin/gnatsweb.pl?cmd=view%20audit-trail&pr=5122&database=gcc

Re: fortran/5122: g77 rejects accepted use of INTEGER*2 as type of DATA statement loop index

[toon]

Synopsis: g77 rejects accepted use of INTEGER*2 as type of DATA statement loop index

Responsible-Changed-From-To: unassigned->toon
Responsible-Changed-By: toon
Responsible-Changed-When: Fri Dec 14 11:27:11 2001
Responsible-Changed-Why:
    My Job.

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

fortran/5122: g77 rejects accepted use of INTEGER*2 as type of DATA statement loop index

[toon]

>Number:         5122
>Category:       fortran
>Synopsis:       g77 rejects accepted use of INTEGER*2 as type of DATA statement loop index
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          rejects-legal
>Submitter-Id:   net
>Arrival-Date:   Fri Dec 14 10:46:04 PST 2001
>Closed-Date:
>Last-Modified:
>Originator:     JC
>Release:        g77-2.95, 3.0
>Organization:
>Environment:
Windows, Linux
>Description:
This program

      CHARACTER*20 PARTD(6)
      INTEGER*2 L
      DATA (PARTD(L),L=1,16)/'A','B','C','D','E','F'/
      END

draws:

jc.f: In program `MAIN__':
jc.f:3: 
         DATA (PARTD(L),L=1,16)/'A','B','C','D','E','F'/
                     ^
Invalid declaration of or reference to symbol `l' at (^) [initially seen at (^)]
jc.f:3: 
         DATA (PARTD(L),L=1,16)/'A','B','C','D','E','F'/
               ^
Expression at (^) has incorrect data type or rank for its context

while it should be accepted (INTEGER*2 is an extension to
FORTRAN 77 that g77 supports).
>How-To-Repeat:
g77 jc.f
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted: