Commit 9852c209 by Steven G. Kargl Committed by Jerry DeLisle

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
parent 000ba23d
2005-11-28 Jakub Jelinek <jakub@redhat.com> 2005-11-28 Steven G. Kargl <kargls@comcast.net>
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.
* intrinsics/ftell.c (ftell, FTELL_SUB): Add unlock_unit call. PR libgfortran/25149
* intrinsics/fget.c (fgetc, fputs): Likewise. * intrinsics/abort.c: Add external abort_ to allow linking when
* intrinsics/tty.c (ttynam): Likewise. invoking -std=f95 in testsuite.
2005-11-27 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-11-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
......
...@@ -38,3 +38,15 @@ void PREFIX(abort) (void) ...@@ -38,3 +38,15 @@ void PREFIX(abort) (void)
close_units (); close_units ();
abort (); 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 ();
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment