| Message ID | 20140517083020.42444103@mailhost.lps.ens.fr |
|---|---|
| State | New |
| Headers | show |
--- ../_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;
> FAIL: gfortran.dg/complex_intrinsic_4.f90 -O ... Same failures also for complex_intrinsic_6.f90. Fixed with the following patch Dominique