| Submitter | Steve Kargl |
|---|---|
| Date | Dec. 9, 2010, 4:04 p.m. |
| Message ID | <20101209160447.GA42841@troutmask.apl.washington.edu> |
| Download | mbox | patch |
| Permalink | /patch/74922/ |
| State | New |
| Headers | show |
Comments
Patch
Index: check.c =================================================================== --- check.c (revision 167643) +++ check.c (working copy) @@ -3343,7 +3343,7 @@ gfc_check_sngl (gfc_expr *a) return FAILURE; if ((a->ts.kind != gfc_default_double_kind) - && gfc_notify_std (GFC_STD_GNU, "GNU extension: non double precision" + && gfc_notify_std (GFC_STD_GNU, "GNU extension: non double precision " "REAL argument to %s intrinsic at %L", gfc_current_intrinsic, &a->where) == FAILURE) return FAILURE;