Return to t01.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 tst1
	parameter(ntest=1)
c Arithmetic on constants
	parameter( ONE=1, TWO=2, TEN=10, FIFTY=50, MINONE=-1)
	if( 1+1 .ne. 2 ) call e(1,ntest)
	if( ONE+ONE .ne. TWO ) call e(2,ntest)
	if( ONE+MINONE .ne. 0 ) call e(3,ntest)
	if( ONE-TWO .ne. MINONE ) call e(4,ntest)
	if( TWO-MINONE .ne. 3 ) call e(5,ntest)
	if( TWO*TWO .ne. 4 ) call e(6,ntest)
	if( 100*MINONE .ne. -100 ) call e(7,ntest)
	if( 50*ONE .ne. 50 ) call e(8,ntest)
	if( 50*9 .ne. 450 ) call e(9,ntest)
	if( 50*TEN .ne. 500 ) call e(10,ntest)
	if( 60 / TWO .ne. 30 ) call e(11,ntest)
	if( FIFTY / TWO .ne. 25 ) call e(12,ntest)
	if( -2 / 1 .ne. -2 ) call e(13,ntest)
	if( -3 / 1 .ne. -3 ) call e(14,ntest)
	if( -3 / 2 .ne. -1 ) call e(15,ntest)
	if( ((1+2+3) * (2+3+4) * (3+5+5)) / 2 .ne. ((3 * ((5+3+2)*10)+51)*6) / 6
&	) call e(16,ntest)
	if( (1000*2 + 5*7 + 13) / 8 .ne. 2*2*2*2*4*4 ) call e(17,ntest)
	if( (1 * 2 * 3 * 4 * 5 * 6 * 7) / 5040 .ne.
&	5040 / 7 / 6 / 5 / 4 / 3 / 2 ) call e(18,ntest)
	if( -(-(-(-(-(-(-(-(-(1))))))))) .ne. -1 ) call e(19,ntest)
	if( -1 -1 -1 -1 -1 .ne. -5 ) call e(20,ntest)
	if( - 1 .ne. -(((((((((((((1))))))))))))) ) call e(21,ntest)
	if( -4 * (-5) .ne. 20 ) call e(22,ntest)
	if( 2.lt.1 ) call e(24,ntest)
	if( 2 .le. 1 ) call e(25,ntest)
	if( 2 .eq. 3 ) call e(26,ntest)
	if( 2 .ne. 2 ) call e(27,ntest)
	if( 2 .ge. 3 ) call e(28,ntest)
	if( 2 .gt. 3 ) call e(29,ntest)
	if( 2+0 .ne. 2 ) call e(30,ntest)
	if( 2-0 .ne. 2 ) call e(31,ntest)
	if( 2*0 .ne. 0 ) call e(32,ntest)
	if( 0+2 .ne. 2 ) call e(33,ntest)
	if( 0-2 .ne. -2 ) call e(34,ntest)
	if( 0*2 .ne. 0 ) call e(35,ntest)
	if( 0 / 1 .ne. 0 ) call e(36,ntest)
	if( -0 .ne. 0 ) call e(37,ntest)
	if( 0 - 0 .ne. 0 ) call e(38,ntest)
	if( 0 * 0 .ne. 0 ) call e(39,ntest)
	end

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