1 files changed, 12 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/abort.c b/libgfortran/intrinsics/abort.c
index 65c00266e45..50876cb1f94 100644
--- a/libgfortran/intrinsics/abort.c
+++ b/libgfortran/intrinsics/abort.c
@@ -38,3 +38,15 @@ void PREFIX(abort) (void)
   close_units ();
   abort ();
 }
+
+/* abort() is needed for the testsuite when linking with -std=f95.  */
+
+extern void abort_ (void);
+export_proto_np(abort_);
+
+void
+abort_ (void)
+{
+  close_units ();
+  abort ();
+}