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)