This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: Anyone seen this one?
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: Jerry DeLisle <jvdelisle at verizon dot net>
- Cc: Andrew Pinski <pinskia at physics dot uc dot edu>, Fortran List <fortran at gcc dot gnu dot org>
- Date: Mon, 28 Nov 2005 21:09:44 -0800
- Subject: Re: Anyone seen this one?
- References: <200511290400.jAT4077n010654@earth.phy.uc.edu> <438BD5FB.1090302@verizon.net>
On Mon, Nov 28, 2005 at 08:15:55PM -0800, Jerry DeLisle wrote:
> Andrew Pinski wrote:
> >>Hi all,
> >>
> >>Ran into this while testing some other stuff. This is cute! Compiles
> >>fine with the -std=f95 removed.
> >>
> >>$ gfc -std=f95 read_comma.f
> >
> >
> >This is because abort is a non standard intrincs. there is a PR About
> >this but it is
> >unconfirmed because nobody knows the correct thing to do.
> >
> >
> Well I just put a bug report in not knowing any better. I guess thats OK
> since nobody knows what to do. :)
>
Try this patch of intrinsics/abort.c. This is untested. If it
works for you and your regression test it. Please commit.
Index: abort.c
===================================================================
--- abort.c (revision 107569)
+++ abort.c (working copy)
@@ -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 ();
+}
--
Steve