Return to t05.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 tst5
	parameter(ntest=5)
c	Characters
	character*1 kew
	parameter(kew='q')
c	common /t5/ c1,c2,c3,color,hue,tint
	character*1 c1,c2,c3
	character*6 color,hue,tint

	if ( 'q' .ne. kew ) call e(1,ntest)
	c1 = 'a'
	c2 = 'b'
	c3 = 'a'
	if ( c1 .eq. c2 ) call e(2,ntest)
	if ( c1 .ne. c3 ) call e(3,ntest)

	color = 'yellow'
	hue = 'blue'
	tint = 'yellow'
	if ( color .eq. hue ) call e(6,ntest)
	if ( color .ne. tint ) call e(7,ntest)
	end

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