diff options
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index ad4e89e..a5d0f85 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -1976,7 +1976,7 @@ parse_derived_contains (void) goto error; case ST_PROCEDURE: - if (gfc_notify_std (GFC_STD_F2003, "Fortran 2003: Type-bound" + if (gfc_notify_std (GFC_STD_F2003, "Type-bound" " procedure at %C") == FAILURE) goto error; @@ -1985,7 +1985,7 @@ parse_derived_contains (void) break; case ST_GENERIC: - if (gfc_notify_std (GFC_STD_F2003, "Fortran 2003: GENERIC binding" + if (gfc_notify_std (GFC_STD_F2003, "GENERIC binding" " at %C") == FAILURE) goto error; @@ -1995,7 +1995,7 @@ parse_derived_contains (void) case ST_FINAL: if (gfc_notify_std (GFC_STD_F2003, - "Fortran 2003: FINAL procedure declaration" + "FINAL procedure declaration" " at %C") == FAILURE) goto error; @@ -2007,7 +2007,7 @@ parse_derived_contains (void) to_finish = true; if (!seen_comps - && (gfc_notify_std (GFC_STD_F2008, "Fortran 2008: Derived type " + && (gfc_notify_std (GFC_STD_F2008, "Derived type " "definition at %C with empty CONTAINS " "section") == FAILURE)) goto error; @@ -2112,7 +2112,7 @@ endType: compiling_type = 0; if (!seen_component) - gfc_notify_std (GFC_STD_F2003, "Fortran 2003: Derived type " + gfc_notify_std (GFC_STD_F2003, "Derived type " "definition at %C without components"); accept_statement (ST_END_TYPE); @@ -2166,7 +2166,7 @@ endType: case ST_CONTAINS: gfc_notify_std (GFC_STD_F2003, - "Fortran 2003: CONTAINS block in derived type" + "CONTAINS block in derived type" " definition at %C"); accept_statement (ST_CONTAINS); @@ -3335,7 +3335,7 @@ parse_block_construct (void) gfc_namespace* my_ns; gfc_state_data s; - gfc_notify_std (GFC_STD_F2008, "Fortran 2008: BLOCK construct at %C"); + gfc_notify_std (GFC_STD_F2008, "BLOCK construct at %C"); my_ns = gfc_build_block_ns (gfc_current_ns); @@ -3365,7 +3365,7 @@ parse_associate (void) gfc_statement st; gfc_association_list* a; - gfc_notify_std (GFC_STD_F2003, "Fortran 2003: ASSOCIATE construct at %C"); + gfc_notify_std (GFC_STD_F2003, "ASSOCIATE construct at %C"); my_ns = gfc_build_block_ns (gfc_current_ns); @@ -4095,7 +4095,7 @@ parse_contained (int module) pop_state (); if (!contains_statements) - gfc_notify_std (GFC_STD_F2008, "Fortran 2008: CONTAINS statement without " + gfc_notify_std (GFC_STD_F2008, "CONTAINS statement without " "FUNCTION or SUBROUTINE statement at %C"); } |