From 1b7008c4c12878ef1ac41882d1d1517920047054 Mon Sep 17 00:00:00 2001 From: dominiq Date: Wed, 22 Mar 2017 16:29:30 +0000 Subject: 2017-03-22 Dominique d'Humieres PR fortran/79602 * decl.c: Replace '%s' with %qs. * expr.c: Likewise. * interface.c: Likewise. * match.c: Likewise. * primary.c: Likewise. * resolve.c: Likewise. PR fortran/79844 PR fortran/80011 * io.c: Remove trailing spaces. * match.c: Likewise. * openmp.c: Likewise. * resolve.c: Likewise. * trans-intrinsic.c: Likewise. PR fortran/79853 * expr.c: Remove a double spaces. PR fortran/79859 * primary.c: Remove spurious quotes around %qs. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@246391 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/interface.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/fortran/interface.c') diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 80dae027da0..6fe0647ecfe 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -4694,7 +4694,7 @@ check_dtio_interface1 (gfc_symbol *derived, gfc_symtree *tb_io_st, gcc_assert (dtio_sub); if (!dtio_sub->attr.subroutine) - gfc_error ("DTIO procedure '%s' at %L must be a subroutine", + gfc_error ("DTIO procedure %qs at %L must be a subroutine", dtio_sub->name, &dtio_sub->declared_at); arg_num = 0; @@ -4703,14 +4703,14 @@ check_dtio_interface1 (gfc_symbol *derived, gfc_symtree *tb_io_st, if (arg_num < (formatted ? 6 : 4)) { - gfc_error ("Too few dummy arguments in DTIO procedure '%s' at %L", + gfc_error ("Too few dummy arguments in DTIO procedure %qs at %L", dtio_sub->name, &dtio_sub->declared_at); return; } if (arg_num > (formatted ? 6 : 4)) { - gfc_error ("Too many dummy arguments in DTIO procedure '%s' at %L", + gfc_error ("Too many dummy arguments in DTIO procedure %qs at %L", dtio_sub->name, &dtio_sub->declared_at); return; } -- cgit v1.2.1