Return to t15.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 tst15
	parameter(ntest=15)
c	Functions

	integer twice
	i=1
	j=2
	k=3
	l=4
	m=10
	if ( twice(k) .ne. m-l ) call e(1,ntest)
	if ( twice(1) .ne. 2 ) call e(2,ntest)
	if ( twice(k+1) .ne. twice(l) ) call e(3,ntest)
	if ( twice(twice(twice(inc(twice(inc(3)))))) .ne. 72 ) call e(4,ntest)
	if ( twice(inc(j+twice(inc(twice(i+1+inc(k)+inc(k))+twice(2))))).ne.106) call e(5,ntest)
	if ( twice(1) + twice(2) * twice(3) .ne. 26 ) call e(6,ntest)
	if ( 3 .ne. 0 + twice(1) + 1 ) call e(7,ntest)
	if ( 0 .ne. 0 * twice(m) ) call e(8,ntest)
	end

	integer function twice(k)
	twice = 2*k
	end
	integer function inc(k)
	inc = k+1
	end

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