[Bug fortran/33513] New: error reported on correct initialization code.

["clerman at fuse dot net" <gcc-bugzilla at gcc dot gnu dot org>]

I get the following error message:

mtftypesM.f90:615.71:

  real (DOUB_PREC), parameter :: DEFAULT_MTF_FIELDS(2, MTF_FIELD_PTS) = &
                                                                      1
Error: Extension: Evaluation of nonstandard initialization expression at (1)
mtftypesM.f90:441.52:

on the following line of code:

  real (DOUB_PREC), parameter :: DEFAULT_MTF_FIELDS(2, MTF_FIELD_PTS) = &
    & reshape ((/0.0_DOUB_PREC, 0.0_DOUB_PREC, 0.0_DOUB_PREC, 0.35_DOUB_PREC,
0.0_DOUB_PREC, 0.7_DOUB_PREC,&
    & 0.0_DOUB_PREC, 0.85_DOUB_PREC, 0.0_DOUB_PREC, 1.0_DOUB_PREC/), shape =
(/2_TinyInteger, MTF_FIELD_PTS/))

where

  integer, parameter :: DefaultInteger = kind (1)
  integer(DefaultInteger), parameter :: TinyInteger = selected_int_kind (2)
  integer(DefaultInteger), parameter :: DOUB_PREC = selected_real_kind (15,
307)
  integer (TinyInteger), parameter ::  MTF_FIELD_PTS = 5_TinyInteger

  I believe this may be the same as bug 29962. Note that the following
compilers all correctly compile this code: Lahey LF64, NAG version 5.1, Intel
version 10, g95.

Norm Clerman


-- 
           Summary: error reported on correct initialization code.
           Product: gcc
           Version: 4.2.2
            Status: UNCONFIRMED
          Severity: major
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: clerman at fuse dot net


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