Return to t10.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 tst10
	parameter(ntest=10)
c	Assignments

	i=3
	j=2
	k= -100
	l= 1+(i*(j+(i*(j+(i*(j+(i*(3+j*(i*1+j*2)))))))))
	if ( l .ne. 1456 ) call e(1,ntest)
	l= ((((((((((((((((((((((((((((((((0))))))))))))))))))))))))))))))))
	if ( l .ne. 0 ) call e(2,ntest)
	l=(((i*j)+(3*i)-5) / 10)*(((i*j)+(3*i)-5) / 10)*(((i*j)+(3*i)-5) / 10)
&	+ (((i*j)+(3*i)-5) / 10)*(((i*j)+(3*i)-5) / 10)*(((i*j)+(3*i)-5) / 10)
	if ( l .ne. 2 ) call e(3,ntest)

	l=((j+j) / 4) * ((j+j) / 4) * ((j+j) / 4)* (j / 3 + j / 4 + 3)+
&	((j+j) / 4) * ((j+j) / 4) * ((j+j) / 4)* (j / 3 + j / 4 + 3)
	if ( l .ne. 6 ) call e(4,ntest)
	i=j*j*j*j*j*j*j*j*j*j*j*j*j*j - 16383
	if ( i .ne.1 ) call e(5,ntest)
	l=(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i))))))))))))))))
	if ( l .ne. 16 ) call e(6,ntest)
	l= (((((((((((((((((j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)
	if ( l .ne. 34 ) call e(7,ntest)
	l= (-(-(-(-(-(-(-(-(-(j))))))))))
	if ( l .ne. -2 ) call e(8,ntest)

	x= 0.1
	y=0.2
	z=0.3
	w=(((((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0))*
&	((((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0))*
&	((((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0))*
&	((((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0))*
&	((((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)))-1
	if ( abs(w-32767) .gt. 0.0001 ) call e(9,ntest)

	i= ifix(100*y+0.5)
	if ( i .ne. 20 ) call e(10,ntest)
	i= 32767
	w=i
	if ( w .ne. 32767 ) call e(11,ntest)
	end

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