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/dfe.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/dfe.c')
| -rw-r--r-- | libf2c/libI77/dfe.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c index e4bd5652ce9..f8c1fc14675 100644 --- a/libf2c/libI77/dfe.c +++ b/libf2c/libI77/dfe.c @@ -70,9 +70,9 @@ c_dfe(cilist *a) f__formatted=f__external=1; f__elist=a; f__cursor=f__scale=f__recpos=0; + f__curunit = &f__units[a->ciunit]; if(a->ciunit>MXUNIT || a->ciunit<0) err(a->cierr,101,"startchk"); - f__curunit = &f__units[a->ciunit]; if(f__curunit->ufd==NULL && fk_open(DIR,FMT,a->ciunit)) err(a->cierr,104,"dfe"); f__cf=f__curunit->ufd; |