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

[toon@moene.indiv.nluug.nl]

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