Return to dob.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

	program bug1
	integer i,j,k,l,m,n,o
	j=2
	k=3
	l=4
	m=5
	n=6
	o=7
	do 20 i=1,k
	j=j+1
	l=i+1
	j=l*j
	l=j-1
	m=l*i
	n=l*m
	o=m-l
	m=o+3
	n=o/m
	o=j+n
	call dummy(i+1,j+2,l+3)
	print 10,i
10	format('Loop pass',i3)
20	continue
	stop
	end

	subroutine dummy(a,b,c)
	integer a,b,c
	return
	end

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