diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-11-29 05:52:57 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-11-29 05:52:57 +0000 |
| commit | 9852c209be3c612f188355f21f111fe88b5e6528 (patch) | |
| tree | dd684dd3187b33e51f20f0a214e685d20ba37167 /libgfortran/intrinsics | |
| parent | 000ba23d0465bedacdce9c33274da8b498c2222c (diff) | |
| download | gcc-9852c209be3c612f188355f21f111fe88b5e6528.zip gcc-9852c209be3c612f188355f21f111fe88b5e6528.tar.gz gcc-9852c209be3c612f188355f21f111fe88b5e6528.tar.bz2 | |
re PR fortran/25149 (Compiler dies on -std=f95)
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.
From-SVN: r107655
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/abort.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/abort.c b/libgfortran/intrinsics/abort.c index 65c0026..50876cb 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 (); +} |