diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 1cbf238..80d073d 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -4230,7 +4230,8 @@ match_attr_spec (void) if ((d == DECL_STATIC || d == DECL_AUTOMATIC) && !flag_dec_static) { - gfc_error ("%s at %L is a DEC extension, enable with -fdec-static", + gfc_error ("%s at %L is a DEC extension, enable with " + "%<-fdec-static%>", d == DECL_STATIC ? "STATIC" : "AUTOMATIC", &seen_at[d]); m = MATCH_ERROR; goto cleanup; @@ -7909,8 +7910,10 @@ gfc_match_automatic (void) if (!flag_dec_static) { - gfc_error ("AUTOMATIC at %C is a DEC extension, enable with " - "-fdec-static"); + gfc_error ("%s at %C is a DEC extension, enable with " + "%<-fdec-static%>", + "AUTOMATIC" + ); return MATCH_ERROR; } @@ -7963,7 +7966,9 @@ gfc_match_static (void) if (!flag_dec_static) { - gfc_error ("STATIC at %C is a DEC extension, enable with -fdec-static"); + gfc_error ("%s at %C is a DEC extension, enable with " + "%<-fdec-static%>", + "STATIC"); return MATCH_ERROR; } @@ -8722,8 +8727,9 @@ gfc_match_structure_decl (void) if (!flag_dec_structure) { - gfc_error ("STRUCTURE at %C is a DEC extension, enable with " - "-fdec-structure"); + gfc_error ("%s at %C is a DEC extension, enable with " + "%<-fdec-structure%>", + "STRUCTURE"); return MATCH_ERROR; } |