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
