1 /* Copyright (C) 2002-2003 Free Software Foundation, Inc.
2 Contributed by Andy Vaught
4 This file is part of the GNU Fortran 95 runtime library (libgfortran).
6 Libgfortran is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 Libgfortran is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with Libgfortran; see the file COPYING. If not, write to
18 the Free Software Foundation, 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
22 #include "libgfortran.h"
26 { CLOSE_DELETE
, CLOSE_KEEP
, CLOSE_UNSPECIFIED
}
29 static st_option status_opt
[] = {
31 {"delete", CLOSE_DELETE
},
44 status
= (ioparm
.status
== NULL
) ? CLOSE_UNSPECIFIED
:
45 find_option (ioparm
.status
, ioparm
.status_len
, status_opt
,
46 "Bad STATUS parameter in CLOSE statement");
48 if (ioparm
.library_return
!= LIBRARY_OK
)
51 u
= find_unit (ioparm
.unit
);
54 if (u
->flags
.status
== STATUS_SCRATCH
)
56 if (status
== CLOSE_KEEP
)
57 generate_error (ERROR_BAD_OPTION
,
58 "Can't KEEP a scratch file on CLOSE");
62 if (status
== CLOSE_DELETE
)