diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-29 05:52:57 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-29 05:52:57 +0000 |
| commit | 0826ab0f937b9859e8db2b72c1430eed5d946b0f (patch) | |
| tree | dd684dd3187b33e51f20f0a214e685d20ba37167 | |
| parent | 99eabcc1273b77ff9bb70fd7f6e091b35978d141 (diff) | |
| download | gcc-0826ab0f937b9859e8db2b72c1430eed5d946b0f.tar.gz | |
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
| -rw-r--r-- | libgfortran/ChangeLog | 19 | ||||
| -rw-r--r-- | libgfortran/intrinsics/abort.c | 12 |
2 files changed, 16 insertions, 15 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e7e8065118b..d760b2f0d98 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 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 (); +} |