re PR fortran/30723 (Freeing memory doesn't need to call a library function)

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

diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c
index 2bcc293091a5b2ddb7838674c0cfe1c186645ccc..bd3c306bc2f4e3b8e00d1729953d59e7fd55e1bf 100644 (file)
--- a/libgfortran/runtime/error.c
+++ b/libgfortran/runtime/error.c
@@ -285,6 +285,7 @@ os_error (const char *message)
   st_printf ("Operating system error: %s\n%s\n", get_oserror (), message);
   sys_exit (1);
 }
+iexport(os_error);
 
 
 /* void runtime_error()-- These are errors associated with an