diff options
| author | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-05-19 10:52:03 +0000 |
|---|---|---|
| committer | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-05-19 10:52:03 +0000 |
| commit | 3ad649e5f9e3e4dd6f1c965916b1427a7d56fdd5 (patch) | |
| tree | c4e8e02849cc5a16fa5bc00db65b9b2aa8561eaf /libf2c/libI77/lread.c | |
| parent | 6e0804a53327a47eadbc1edac8c64e3aa7b1f579 (diff) | |
| download | gcc-3ad649e5f9e3e4dd6f1c965916b1427a7d56fdd5.tar.gz | |
Update to Netlib version of 1998-04-20
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@19877 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libI77/lread.c')
| -rw-r--r-- | libf2c/libI77/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libf2c/libI77/lread.c b/libf2c/libI77/lread.c index 4fb14eed29e..c5b922fbfb6 100644 --- a/libf2c/libI77/lread.c +++ b/libf2c/libI77/lread.c @@ -622,7 +622,7 @@ l_read(ftnint *number, char *ptr, ftnlen len, ftnint type) break; case TYLOGICAL: case TYLONG: - Ptr->flint=f__lx; + Ptr->flint = (ftnint)f__lx; break; #ifdef Allow_TYQUAD case TYQUAD: |