]>
git.ipfire.org Git - thirdparty/gcc.git/blob - libgfortran/io/rewind.c
2 /* Copyright (C) 2002-2003 Free Software Foundation, Inc.
3 Contributed by Andy Vaught
5 This file is part of the GNU Fortran 95 runtime library (libgfortran).
7 Libgfortran is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 Libgfortran is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with Libgfortran; see the file COPYING. If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
23 #include "libgfortran.h"
26 /* rewind.c-- Implement the rewind statement */
35 u
= find_unit (ioparm
.unit
);
38 if (u
->flags
.access
!= ACCESS_SEQUENTIAL
)
39 generate_error (ERROR_BAD_OPTION
,
40 "Cannot REWIND a file opened for DIRECT access");
46 if (sseek (u
->s
, 0) == FAILURE
)
47 generate_error (ERROR_OS
, NULL
);
49 u
->endfile
= NO_ENDFILE
;
50 u
->current_record
= 0;