[unix-history] / usr / src / usr.bin / f77 / libI77 / test / try_env.f

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
Commit	Line	Data
7579356b KB	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