diff options
| author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 2002-06-01 12:38:32 +0000 |
|---|---|---|
| committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 2002-06-01 12:38:32 +0000 |
| commit | 407c72cb298e71da241639399ee64e65308d21a1 (patch) | |
| tree | c6c7b1fe59f3ddb8b8ccf102855193850daecdfc /libf2c/libI77/dolio.c | |
| parent | 113dc14387308310e28710562f69f1bd624a7aaf (diff) | |
| download | gcc-407c72cb298e71da241639399ee64e65308d21a1.zip gcc-407c72cb298e71da241639399ee64e65308d21a1.tar.gz gcc-407c72cb298e71da241639399ee64e65308d21a1.tar.bz2 | |
*: Fix formatting.
* libF77/*: Fix formatting.
* libI77/*: Likewise.
* libU77/*: Likewise.
From-SVN: r54145
Diffstat (limited to 'libf2c/libI77/dolio.c')
| -rw-r--r-- | libf2c/libI77/dolio.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libf2c/libI77/dolio.c b/libf2c/libI77/dolio.c index b0220b1..e50e900 100644 --- a/libf2c/libI77/dolio.c +++ b/libf2c/libI77/dolio.c @@ -1,9 +1,10 @@ #include "config.h" #include "f2c.h" -extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint); +extern int (*f__lioproc) (ftnint *, char *, ftnlen, ftnint); -integer do_lio(ftnint *type, ftnint *number, char *ptr, ftnlen len) +integer +do_lio (ftnint * type, ftnint * number, char *ptr, ftnlen len) { - return((*f__lioproc)(number,ptr,len,*type)); + return ((*f__lioproc) (number, ptr, len, *type)); } |