diff options
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: |