Return to t13.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 tst13
	parameter(ntest=13)
c	computed goto, arithmetic if

	i=3
	x=0.5
	if(i*i-7)1,2,3
1	call e(1,ntest)
	goto 3
2	call e(2,ntest)
3	if(x*x-.25)4,5,6
4	call e(3,ntest)
	goto 5
6	call e(4,ntest)
5	goto(7,8,9,9)i*i-7
7	call e(5,ntest)
	goto 8
9	call e(6,ntest)
8	end

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