Return to try_env.f CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.lib / libI77 / test

Annotation of 43BSD/usr.lib/libI77/test/try_env.f, revision 1.1.1.1

1.1       root        1: c              test overriding file names from program with
                      2: c                      environment variables
                      3: c              formatted, seq
                      4:        write(8,8000) 8
                      5: 8000   format('sample line ',i5)
                      6:        open(9,file='subdir/frmt.d')
                      7:        write(9,8000) 9
                      8: c              unform, seq
                      9:        open(10,form='unformatted')
                     10:        write(10) 10
                     11:        open(11,file='unfr.dat',form='unformatted')
                     12:        write(11) 11
                     13: c              direct
                     14:        open(12,access='direct',form='formatted',recl=20)
                     15:        write(12,8000,rec=3) 12
                     16:        open(13,file='dirct',access='direct',form='unformatted',recl=8)
                     17:        write(13,rec=3) 127, 16*127
                     18:        end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.