[Bug fortran/38914] New: ICE with array inquiry functions above contains in parameter expression

["dick dot hendrickson at gmail dot com" <gcc-bugzilla at gcc dot gnu dot org>]

The following program causes an ICE.  If the contains and subroutine statements
are uncommented, then the program compiles.

Dick Hendrickson

      MODULE U_above_TESTS

! fails on Windows XP
! gcc version 4.4.0 20081219 (experimental) [trunk revision 142842] (GCC)

!      contains
!      subroutine U_below

      INTEGER, PARAMETER, DIMENSION(0:20,4) :: IP_ARRAY2_4_S = 0

      INTEGER, PARAMETER, DIMENSION(12) ::  IP_ARRAY1_32_S =
     $(/  LBOUND(IP_ARRAY2_4_S), LBOUND(IP_ARRAY2_4_S(5:10,2:3)),
     $    UBOUND(IP_ARRAY2_4_S), UBOUND(IP_ARRAY2_4_S(5:10,2:3)),
     $    SIZE(IP_ARRAY2_4_S), SIZE(IP_ARRAY2_4_S(5:10,2:3)),
     $    SHAPE(IP_ARRAY2_4_S(5:10,2:3))  /)

!      end subroutine u_below

      END MODULE U_above_TESTS


C:\gfortran>gfortran u_above.f
f951.exe: internal compiler error: in gfc_conv_array_initializer, at
fortran/tra
ns-array.c:4009
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.


-- 
           Summary: ICE with array inquiry functions above contains in
                    parameter expression
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dick dot hendrickson at gmail dot com


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38914