Return to trunctst.f CVS log

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

BSD 4.2

	program trutst
	integer ftell
	external ftell

	rewind 1
	write(1,*) "This is line A."
	write(1,*) "This is line B."
	write(1,*) "This is line C."
	write(1,*) "This is line D."
	backspace 1
	endfile 1
	call system ("cat fort.1")
	write(*,*) "---"
	rewind 1
	write(1,*) "This is line E."
	write(1,*) "This is line F."
	close(1)
	call system ("cat fort.1")
	end

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