diff options
Diffstat (limited to 'gcc/fortran/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index 2ed4291..5cdf80d 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -2864,7 +2864,11 @@ keywords: if (f == NULL) { - gfc_error ("Can't find keyword named '%s' in call to '%s' at %L", + if (a->name[0] == '%') + gfc_error ("Argument list function at %L is not allowed in this " + "context", where); + else + gfc_error ("Can't find keyword named '%s' in call to '%s' at %L", a->name, name, where); return FAILURE; } |