Return to t12.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 tst12
	parameter(ntest=12)
c	Loops

	j=5
	k=0
	do 1 i=1 , j
1	k=k+1
	if ( k.ne.5 ) call e(1,ntest)
	k=0
	do 2 i=5 , j
2	k=k+1
	if ( k.ne.1 ) call e(2,ntest)
	k=0
	do 3 i=6 , j
3	k=k+1
	if ( k.ne.0 ) call e(3,ntest)
	k=0
	do 4 i=-1 , -j ,-1
4	k=k+1
	if ( k.ne.5 ) call e(4,ntest)
	k=0
	do 5 i=-5 , -j ,-1
5	k=k+1
	if ( k.ne.1 ) call e(5,ntest)
	k=0
	do 6 i=-6 , j ,-1
6	k=k+1
	if ( k.ne.0 ) call e(6,ntest)
	k=0
	do 7 i=1 , 10 ,-1
7	k=k+1
	if ( k.ne.0 ) call e(7,ntest)

	k=0
	i=2
	do 8 l=1 , j , i
8	k=k+1
	if ( k.ne.3 ) call e(8,ntest)
	k=0
	do 9 l=5 , j , i
9	k=k+1
	if ( k.ne.1 ) call e(9,ntest)
	k=0
	do 10 l=6 , j , i
10	k=k+1
	if ( k.ne.0 ) call e(10,ntest)
	k=0
	do 11 l=-1 , -j ,-i
11	k=k+1
	if ( k.ne.3 ) call e(11,ntest)
	k=0
	do 12 l=-5 , -j ,-i
12	k=k+1
	if ( k.ne.1 ) call e(12,ntest)
	k=0
	do 13 l=-6 , j ,-i
13	k=k+1
	if ( k.ne.0 ) call e(13,ntest)
	k=0
	do 14 l=1 , 10 ,-i
14	k=k+1
	if ( k.ne.0 ) call e(14,ntest)
	end

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