| Submitter | Steve Kargl |
|---|---|
| Date | Dec. 9, 2010, 3:44 p.m. |
| Message ID | <20101209154424.GA82150@troutmask.apl.washington.edu> |
| Download | mbox | patch |
| Permalink | /patch/74911/ |
| State | New |
| Headers | show |
Comments
Patch
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;