2008-01-22 Daniel Franke <franke.daniel@gmail.com>
PR fortran/34915
* expr.c (check_elemental): Fix check for valid data types.
gcc/testsuite:
2008-01-22 Daniel Franke <franke.daniel@gmail.com>
PR fortran/34915
* gfortran.dg/initialization_18.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131715
138bc75d-0d04-0410-961f-
82ee72b054a4
+2008-01-22 Daniel Franke <franke.daniel@gmail.com>
+
+ PR fortran/34915
+ * expr.c (check_elemental): Fix check for valid data types.
+
2008-01-22 Tobias Burnus <burnus@net-b.de>
PR fortran/34899
|| !e->value.function.isym->elemental)
return MATCH_NO;
- if ((e->ts.type != BT_INTEGER || e->ts.type != BT_CHARACTER)
+ if (e->ts.type != BT_INTEGER
+ && e->ts.type != BT_CHARACTER
&& gfc_notify_std (GFC_STD_F2003, "Extension: Evaluation of "
"nonstandard initialization expression at %L",
&e->where) == FAILURE)
+2008-01-22 Daniel Franke <franke.daniel@gmail.com>
+
+ PR fortran/34915
+ * gfortran.dg/initialization_18.f90: New test.
+
2008-01-22 Tobias Burnus <burnus@net-b.de>
PR fortran/34899
--- /dev/null
+! { dg-do compile }
+! { dg-options "-std=f95 -Wall" }
+!
+! PR fortran/34915
+! Testcase contributed by Al Greynolds via comp.lang.fortran.
+!
+
+ character(*),dimension(3),parameter :: a=(/'a() ','b(,) ','c(,,)'/)
+ integer,dimension(3),parameter :: l=len_trim(a)
+end