diff options
| author | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-06-23 14:37:15 +0000 |
|---|---|---|
| committer | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-06-23 14:37:15 +0000 |
| commit | cfda1648f59667a07edd3309613b709e2d9edced (patch) | |
| tree | 2e4adca262ff4a1b9e43c7c416227974de44e228 /libf2c/libI77/rsfe.c | |
| parent | c5ab46b6d7b4ed9a3a11a256d8d7ba65a87ab49d (diff) | |
| download | gcc-cfda1648f59667a07edd3309613b709e2d9edced.tar.gz | |
1998-06-23 Dave Love <d.love@dl.ac.uk>
* libI77/backspace.c, libI77/dfe.c, libI77/due.c, libI77/iio.c,
libI77/lread.c, libI77/ sfe.c, libI77/sue.c, libI77/wsfe.c: Update
to Netlib version of 1998-06-18.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@20678 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libI77/rsfe.c')
| -rw-r--r-- | libf2c/libI77/rsfe.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libf2c/libI77/rsfe.c b/libf2c/libI77/rsfe.c index 02a9e6d4680..66604624691 100644 --- a/libf2c/libI77/rsfe.c +++ b/libf2c/libI77/rsfe.c @@ -51,16 +51,15 @@ integer s_rsfe(cilist *a) /* start */ { int n; if(f__init != 1) f_init(); f__init = 3; - if(n=c_sfe(a)) return(n); f__reading=1; f__sequential=1; f__formatted=1; f__external=1; + if(n=c_sfe(a)) return(n); f__elist=a; f__cursor=f__recpos=0; f__scale=0; f__fmtbuf=a->cifmt; - f__curunit= &f__units[a->ciunit]; f__cf=f__curunit->ufd; if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio"); f__getn= x_getc; |