diff options
author | dominiq <dominiq@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-02-24 23:40:42 +0000 |
---|---|---|
committer | dominiq <dominiq@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-02-24 23:40:42 +0000 |
commit | 6b9a0bc569a8744e6fb490b27e6accc07f617507 (patch) | |
tree | 023ce23b61ae8e266b51666636f3c000d7ec8225 /gcc/fortran | |
parent | 09fd09ebecf9cdf5d9257e48e1aff43492c29ed5 (diff) | |
download | gcc-6b9a0bc569a8744e6fb490b27e6accc07f617507.tar.gz |
2017-02-25 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/79597
* interface.c (gfc_match_end_interface): Remove spurious comma
and space, replace 'got %s' with 'got %qs'.
2017-02-25 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/79597
* gfortran.dg/dtio_6.f90: Update test.
2017-02-25 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/79601
* interface.c (check_dtio_arg_TKR_intent): Change 'intent'
to 'INTENT'.
2017-02-25 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/79601
* gfortran.dg/interface_operator_2.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@245729 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 12 | ||||
-rw-r--r-- | gcc/fortran/interface.c | 6 |
2 files changed, 15 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index bd4d971b212..6ee14745adf 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,15 @@ +2017-02-25 Dominique d'Humieres <dominiq@lps.ens.fr> + + PR fortran/79601 + * interface.c (check_dtio_arg_TKR_intent): Change 'intent' + to 'INTENT'. + +2017-02-25 Dominique d'Humieres <dominiq@lps.ens.fr> + + PR fortran/79597 + * interface.c (gfc_match_end_interface): Remove spurious comma + and space, replace 'got %s' with 'got %qs'. + 2017-02-20 Paul Thomas <pault@gcc.gnu.org> PR fortran/79599 diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 53701f2e6ef..80dae027da0 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -398,10 +398,10 @@ gfc_match_end_interface (void) m = MATCH_ERROR; if (strcmp(s2, "none") == 0) gfc_error ("Expecting %<END INTERFACE OPERATOR (%s)%> " - "at %C, ", s1); + "at %C", s1); else gfc_error ("Expecting %<END INTERFACE OPERATOR (%s)%> at %C, " - "but got %s", s1, s2); + "but got %qs", s1, s2); } } @@ -4623,7 +4623,7 @@ check_dtio_arg_TKR_intent (gfc_symbol *fsym, bool typebound, bt type, "ASSUMED SHAPE ARRAY", &fsym->declared_at); if (fsym->attr.intent != intent) - gfc_error ("DTIO dummy argument at %L must have intent %s", + gfc_error ("DTIO dummy argument at %L must have INTENT %s", &fsym->declared_at, gfc_code2string (intents, (int)intent)); return; } |