From 0826ab0f937b9859e8db2b72c1430eed5d946b0f Mon Sep 17 00:00:00 2001
From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 29 Nov 2005 05:52:57 +0000
Subject: [PATCH] 2005-11-28 Steven G. Kargl <kargls@comcast.net>
PR libgfortran/25149
* intrinsics/abort.c: Add external abort_ to allow linking when
invoking -std=f95 in testsuite.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@107655 138bc75d-0d04-0410-961f-82ee72b054a4
---
libgfortran/ChangeLog | 19 ++++---------------
libgfortran/intrinsics/abort.c | 12 ++++++++++++
2 files changed, 16 insertions(+), 15 deletions(-)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index e7e8065118b6..d760b2f0d984 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,19 +1,8 @@
-2005-11-28 Jakub Jelinek <jakub@redhat.com>
-
- libfortran/24991
- * acinclude.m4 (LIBGFOR_CHECK_PRAGMA_WEAK): Rename to...
- (LIBGFOR_GTHREAD_WEAK): ... this. Define SUPPORTS_WEAK rather
- than HAVE_PRAGMA_WEAK. Define GTHREAD_USE_WEAK to 0 on hosts
- that shouldn't use weak in gthr.h.
- * configure.ac: Use LIBGFOR_GTHREAD_WEAK instead of
- LIBGFOR_CHECK_PRAGMA_WEAK.
- * config.h.in: Regenerated.
- * configure: Regenerated.
- * io/io.h (SUPPORTS_WEAK): Don't define here.
+2005-11-28 Steven G. Kargl <kargls@comcast.net>
- * intrinsics/ftell.c (ftell, FTELL_SUB): Add unlock_unit call.
- * intrinsics/fget.c (fgetc, fputs): Likewise.
- * intrinsics/tty.c (ttynam): Likewise.
+ PR libgfortran/25149
+ * intrinsics/abort.c: Add external abort_ to allow linking when
+ invoking -std=f95 in testsuite.
2005-11-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
diff --git a/libgfortran/intrinsics/abort.c b/libgfortran/intrinsics/abort.c
index 65c00266e459..50876cb1f94a 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 ();
+}
--
GitLab