* intrinsics/abort.c (abort): Close units before aborting.
Updated copyright years.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102600
138bc75d-0d04-0410-961f-
82ee72b054a4
+2005-07-31 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
+ PR libfortran/21787
+ * intrinsics/abort.c (abort): Close units before aborting.
+ Updated copyright years.
+
2005-07-30 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/22436
/* Implementation of the ABORT intrinsic.
- Copyright (C) 2003, 2004 Free Software Foundation, Inc.
+ Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
This file is part of the GNU Fortran 95 runtime library (libgfortran).
void PREFIX(abort) (void)
{
+ close_units ();
abort ();
}