[Bug fortran/34915] -std=f95 rejects len_trim() and index() in init expressions

[dfranke at gcc dot gnu dot org]

------- Comment #2 from dfranke at gcc dot gnu dot org  2008-01-22 10:30 -------
Index: fortran/expr.c
===================================================================
--- fortran/expr.c      (revision 131693)
+++ fortran/expr.c      (working copy)
@@ -2109,7 +2109,8 @@ check_elemental (gfc_expr *e)
       || !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)


-- 

dfranke at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |dfranke at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2008-01-22 09:38:28         |2008-01-22 10:30:03
               date|                            |


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