diff options
Diffstat (limited to 'libgfortran/io/transfer.c')
| -rw-r--r-- | libgfortran/io/transfer.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 15d403c..9b91536 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -220,7 +220,8 @@ read_sf (st_parameter_dt *dtp, int *length, int no_error) if (*q == ',') if (dtp->u.p.sf_read_comma == 1) { - notify_std (GFC_STD_GNU, "Comma in formatted numeric read."); + notify_std (&dtp->common, GFC_STD_GNU, + "Comma in formatted numeric read."); *length = n; break; } |