From 49ee828a5acc7a60c024994981162ed0460d2eee Mon Sep 17 00:00:00 2001 From: CSRG Date: Tue, 7 May 1985 01:01:49 -0800 Subject: [PATCH] BSD 4_3_Tahoe development Work on file usr/src/usr.lib/libI77/test/try_env.f Synthesized-from: CSRG/cd2/4.3tahoe --- usr/src/usr.lib/libI77/test/try_env.f | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100755 usr/src/usr.lib/libI77/test/try_env.f 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 index 0000000000..166bc540aa --- /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 -- 2.20.1