BSD 4_2 release

[unix-history] / usr / src / usr.lib / libI77 / dofio.c

diff --git a/usr/src/usr.lib/libI77/dofio.c b/usr/src/usr.lib/libI77/dofio.c
index 6b61aaa..e981735 100644 (file)
--- a/usr/src/usr.lib/libI77/dofio.c
+++ b/usr/src/usr.lib/libI77/dofio.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_dofio[] = "@(#)dofio.c 1.2";
+char id_dofio[] = "@(#)dofio.c 1.3";

  *
  * fortran format executer
  */
  *
  * fortran format executer
  */


@@ -14,7 +14,7 @@ char *dfio = "dofio";
 
 en_fio()
 {      ftnint one=1;
 
 en_fio()
 {      ftnint one=1;

-       return(do_fio(&one,NULL,0l));
+       return(do_fio(&one,NULL,0L));

 }
 
 do_fio(number,ptr,len) ftnint *number; ftnlen len; char *ptr;
 }
 
 do_fio(number,ptr,len) ftnint *number; ftnlen len; char *ptr;