Message ID | 20101209154424.GA82150@troutmask.apl.washington.edu |
---|---|
State | New |
Headers | show |
Index: check.c =================================================================== --- check.c (revision 167642) +++ check.c (working copy) @@ -1497,7 +1497,7 @@ gfc_check_float (gfc_expr *a) return FAILURE; if ((a->ts.kind != gfc_default_integer_kind) - && gfc_notify_std (GFC_STD_GNU, "GNU extension: non-default INTEGER" + && gfc_notify_std (GFC_STD_GNU, "GNU extension: non-default INTEGER " "kind argument to %s intrinsic at %L", gfc_current_intrinsic, &a->where) == FAILURE ) return FAILURE;