diff options
| author | Fritz Reese <fritzoreese@gmail.com> | 2017-05-18 10:24:37 +0000 |
|---|---|---|
| committer | Fritz Reese <foreese@gcc.gnu.org> | 2017-05-18 10:24:37 +0000 |
| commit | cf0042303ee3077097c3217a99d043a818c2721c (patch) | |
| tree | 92af5a7f8b884a40e7e67054bf797a7ce876c4a0 /gcc/fortran/decl.c | |
| parent | 8268fc6022a375670b0208cf4d564f00f1c58794 (diff) | |
| download | gcc-cf0042303ee3077097c3217a99d043a818c2721c.zip gcc-cf0042303ee3077097c3217a99d043a818c2721c.tar.gz gcc-cf0042303ee3077097c3217a99d043a818c2721c.tar.bz2 | |
re PR fortran/79968 (diagnostics: merge similar diagnostics containing -fdec-structure)
2017-05-18 Fritz Reese <fritzoreese@gmail.com>
PR fortran/79968
gcc/fortran/ChangeLog:
PR fortran/79968
* decl.c (match_attr_spec, gfc_match_automatic,
gfc_match_static, gfc_match_structure_decl): Unify diagnostic
errors regarding -fdec options.
* io.c (match_dec_etag, match_dec_vtag, match_dec_ftag): Ditto.
From-SVN: r248188
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; } |