BSD 4_3_Tahoe development

Work on file usr/src/usr.lib/libI77/test/try_env.f

Synthesized-from: CSRG/cd2/4.3tahoe

diff --git a/usr/src/usr.lib/libI77/test/try_env.f b/usr/src/usr.lib/libI77/test/try_env.f
new file mode 100755 (executable)
index 0000000..166bc54
--- /dev/null
+++ b/usr/src/usr.lib/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