> FAIL: gfortran.dg/complex_intrinsic_4.f90  -O ...

Same failures also for complex_intrinsic_6.f90. Fixed with the following patch

--- ../_clean/gcc/fortran/check.c       2014-05-16 23:41:02.000000000 +0200
+++ gcc/fortran/check.c 2014-05-17 05:05:20.000000000 +0200
@@ -1821,8 +1821,8 @@ gfc_check_fn_rc2008 (gfc_expr *a)
     return false;
 
   if (a->ts.type == BT_COMPLEX
-      && !gfc_notify_std (GFC_STD_F2008, "COMPLEX '%s' "
-                         "argument of '%s' intrinsic at %L", 
+      && !gfc_notify_std (GFC_STD_F2008, "COMPLEX argument '%s' "
+                         "of '%s' intrinsic at %L", 
                          gfc_current_intrinsic_arg[0]->name, 
                          gfc_current_intrinsic, &a->where))
     return false;

Dominique

Reply via email to