re PR fortran/31201 (Too large unit number generates wrong code)

[gcc.git] / libgfortran / runtime / error.c

diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c
index 3c44d2189631ba0ab62a7e0de5d0a54fbdaafaed..2bcc293091a5b2ddb7838674c0cfe1c186645ccc 100644 (file)
--- a/libgfortran/runtime/error.c
+++ b/libgfortran/runtime/error.c
@@ -299,6 +299,19 @@ runtime_error (const char *message)
 }
 iexport(runtime_error);
 
+/* void runtime_error_at()-- These are errors associated with a
+ * run time error generated by the front end compiler.  */
+
+void
+runtime_error_at (const char *where, const char *message)
+{
+  recursion_check ();
+  st_printf ("%s\n", where);
+  st_printf ("Fortran runtime error: %s\n", message);
+  sys_exit (2);
+}
+iexport(runtime_error_at);
+
 
 /* void internal_error()-- These are this-can't-happen errors
  * that indicate something deeply wrong. */
@@ -475,7 +488,7 @@ generate_error (st_parameter_common *cmp, int family, const char *message)
   st_printf ("Fortran runtime error: %s\n", message);
   sys_exit (2);
 }
-
+iexport(generate_error);
 
 /* Whether, for a feature included in a given standard set (GFC_STD_*),
    we should issue an error or a warning, or be quiet.  */