From 17d5d49f584e47e20bdbe16404c2be5af9db4e08 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 25 Nov 2014 23:37:54 +0100 Subject: error.c (gfc_internal_error): Convert to common diagnostics. 2014-11-25 Tobias Burnus * error.c (gfc_internal_error): Convert to common diagnostics. * interface.c (gfc_find_sym_in_symtree): Use %qs. * intrinsic.c (make_generic, gfc_check_intrinsic_standard, gfc_convert_type_warn): Ditto. * module.c (write_symbol): Ditto. * symbol.c (gfc_get_default_type): Ditto; use fatal instead of internal error. * trans-array.c (gfc_walk_subexpr): Replace internal_error by gfc_internal_error. * trans-decl.c (gfc_get_symbol_decl, (gfc_create_module_variable): Ditto. Use %qs. * trans-intrinsic.c (gfc_conv_intrinsic_lib_function): Ditto. * trans-io.c (transfer_expr): Ditto. * trans-openmp.c (gfc_trans_omp_workshare): Ditto. * trans.c (trans_code): Ditto. From-SVN: r218068 --- gcc/fortran/interface.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/interface.c') diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 1eb09ac..1980ddf 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -3542,7 +3542,7 @@ gfc_find_sym_in_symtree (gfc_symbol *sym) if (st) return st; } - gfc_internal_error ("Unable to find symbol %s", sym->name); + gfc_internal_error ("Unable to find symbol %qs", sym->name); /* Not reached. */ } -- cgit v1.1