diff options
| author | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-10 14:40:59 +0000 |
|---|---|---|
| committer | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-10 14:40:59 +0000 |
| commit | 6db9aef0328beee539ee51e75e852e271a78c69c (patch) | |
| tree | 2f60c099d0dc5fc900d95fee36cf23700d91cb55 /libf2c/libI77/open.c | |
| parent | 460fb0a0486c7b8fc34902e4834ff65da18611b8 (diff) | |
| download | ppe42-gcc-6db9aef0328beee539ee51e75e852e271a78c69c.tar.gz ppe42-gcc-6db9aef0328beee539ee51e75e852e271a78c69c.zip | |
Update to Netlib version of 1999-05-10
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26864 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libI77/open.c')
| -rw-r--r-- | libf2c/libI77/open.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c index dd47bddb9e1..3e4c8bc32b5 100644 --- a/libf2c/libI77/open.c +++ b/libf2c/libI77/open.c @@ -187,7 +187,7 @@ integer f_open(olist *a) opnerr(a->oerr,107,"open"); } else - sprintf(buf, "fort.%ld", a->ounit); + sprintf(buf, "fort.%ld", (long)a->ounit); b->uscrtch = 0; b->uend=0; b->uwrt = 0; @@ -281,7 +281,7 @@ fk_open(int seq, int fmt, ftnint n) int rtn; int save_init; - (void) sprintf(nbuf,"fort.%ld",n); + (void) sprintf(nbuf,"fort.%ld",(long)n); a.oerr=1; a.ounit=n; a.ofnm=nbuf; |
