Return to t04.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 tst4
	parameter(ntest=4)
c	Boolean expressions
c	common /t4/ p,q,r
	logical p,q,r
	logical yes,no
	parameter(yes=.true., no=.false.)
	if ( .not. yes .eqv. .true. ) call e(1,ntest)
	if ( .not. no .eqv. .false. ) call e(2,ntest)
	if ( yes .eqv. no ) call e(3,ntest)
	if ( .not. .true. .eqv. .not. .false. ) call e(4,ntest)
	if ( .true. .and. .false. ) call e(5,ntest)
	if ( .false. .or. .false. ) call e(6,ntest)

	p=.true.
	q=.true.
	r=.false.
	if ( .not. p ) call e(7,ntest)
	if ( r ) call e(8,ntest)
	if ( p .and. r ) call e(9,ntest)
	if ( p .and. .not. q ) call e(10,ntest)
	if ( .not. p .or. .not. q ) call e(11,ntest)
	if ( (p .and. r) .or. (q .and. r) ) call e(12,ntest)
	if ( p .and. q .and. r ) call e(13,ntest)
	if ( (p .or. q) .eqv. r ) call e(14,ntest)
	end

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