c++/947: Data statement initialization of an array element whose index is

[anonymous@sourceware.cygnus.com]

>Number:         947
>Category:       c++
>Synopsis:       Data statement initialization of an array element whose index is
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          ice-on-legal-code
>Submitter-Id:   net
>Arrival-Date:   Thu Nov 30 14:26:00 PST 2000
>Closed-Date:
>Last-Modified:
>Originator:     Eric Barkan
>Release:        g77 version 2.96 20000731 (Red Hat Linux 7.0) (from FSF-g77 version 0.5.26
>Organization:
>Environment:
Dell Pentium III 933 MHz Running Red Hat 7.0
>Description:
Here are a short program and error message resulting from
attempted compilation:

g77_bug 97>cat bug.f

        program main

        integer*2 i
        parameter( i = 1 )

        integer a(2)

        data a(i) / 0 /

        end


g77_bug 98>g77 bug.f
../../../gcc/f/data.c:987: failed assertion `ffeinfo_kindtype (ffebld_info
(subscript)) == FFEINFO_kindtypeINTEGER1'
bug.f: In program `main':
bug.f:8: Internal error: Aborted.
Please submit a full bug report.
See <URL: http://www.gnu.org/software/gcc/bugs.html > for instructions.


>How-To-Repeat:
g77 bug.f (See "Description")
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted:
 an INTEGER*2 compile-time parameter causes compilation to abort
 From: ebarkan@jps.net
 Reply-To: ebarkan@jps.net
 X-Send-Pr-Version: gnatsweb-2.6 (1.135)
 X-GNATS-Notify: 
 
 an INTEGER*2 compile-time parameter causes compilation to abort
  20000731 (Red Hat Linux 7.0))