date and time created 90/06/25 13:56:22 by bostic

SCCS-vsn: usr.bin/f77/libI77/test/try_env.f 5.1

diff --git a/usr/src/usr.bin/f77/libI77/test/try_env.f b/usr/src/usr.bin/f77/libI77/test/try_env.f
new file mode 100644 (file)
index 0000000..166bc54
--- /dev/null
+++ b/usr/src/usr.bin/f77/libI77/test/try_env.f
@@ -0,0 +1,18 @@
+c              test overriding file names from program with
+c                      environment variables
+c              formatted, seq
+       write(8,8000) 8
+8000   format('sample line ',i5)
+       open(9,file='subdir/frmt.d')
+       write(9,8000) 9
+c              unform, seq
+       open(10,form='unformatted')
+       write(10) 10
+       open(11,file='unfr.dat',form='unformatted')
+       write(11) 11
+c              direct
+       open(12,access='direct',form='formatted',recl=20)
+       write(12,8000,rec=3) 12
+       open(13,file='dirct',access='direct',form='unformatted',recl=8)
+       write(13,rec=3) 127, 16*127
+       end