aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/trans-io.c
diff options
context:
space:
mode:
authorTobias Burnus <burnus@net-b.de>2014-11-25 23:37:54 +0100
committerTobias Burnus <burnus@gcc.gnu.org>2014-11-25 23:37:54 +0100
commit17d5d49f584e47e20bdbe16404c2be5af9db4e08 (patch)
treebfcb1c853b89254b45c6ed5d2d51b7c3c0980f62 /gcc/fortran/trans-io.c
parent4daa149b86a42d1d10a735889c5f9cd6a0bca09e (diff)
downloadgcc-17d5d49f584e47e20bdbe16404c2be5af9db4e08.zip
gcc-17d5d49f584e47e20bdbe16404c2be5af9db4e08.tar.gz
gcc-17d5d49f584e47e20bdbe16404c2be5af9db4e08.tar.bz2
error.c (gfc_internal_error): Convert to common diagnostics.
2014-11-25 Tobias Burnus <burnus@net-b.de> * 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
Diffstat (limited to 'gcc/fortran/trans-io.c')
-rw-r--r--gcc/fortran/trans-io.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index fbf7912..e1b7eb9 100644
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -2192,7 +2192,7 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code)
return;
default:
- internal_error ("Bad IO basetype (%d)", ts->type);
+ gfc_internal_error ("Bad IO basetype (%d)", ts->type);
}
tmp = gfc_build_addr_expr (NULL_TREE, dt_parm);