Return to t09.f CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst

Power 6/32 Unix version 1.21

c	subroutine tst9
	parameter(ntest=9)
c	Statement sequencing

	i=0
1	if ( i.gt.10 ) goto 3
	goto 2
	call e(1,ntest)
2	i=i+1
	goto 1
	call e(2,ntest)
3	end

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