diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-31 07:30:34 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-31 07:30:34 +0000 |
| commit | 8dfe0a9b82780e7aa093b60d01561457a67ac151 (patch) | |
| tree | fbaa28317dd8998c7c27bd5d7bb9de528d4b48ee /libgfortran/intrinsics/abort.c | |
| parent | c1f8d165a08a28359385c61cd95e03ac49281181 (diff) | |
| download | gcc-8dfe0a9b82780e7aa093b60d01561457a67ac151.tar.gz | |
PR libfortran/21787
* 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
Diffstat (limited to 'libgfortran/intrinsics/abort.c')
| -rw-r--r-- | libgfortran/intrinsics/abort.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgfortran/intrinsics/abort.c b/libgfortran/intrinsics/abort.c index 83b42125e58..bbf7e5f3a79 100644 --- a/libgfortran/intrinsics/abort.c +++ b/libgfortran/intrinsics/abort.c @@ -1,5 +1,5 @@ /* 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). @@ -35,5 +35,6 @@ export_proto_np(PREFIX(abort)); void PREFIX(abort) (void) { + close_units (); abort (); } |