Return to t05.f CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst

Annotation of cci/usr/src/usr.bin/f77/f77pass1/tst/t05.f, revision 1.1

1.1     ! root        1: c      subroutine tst5
        !             2:        parameter(ntest=5)
        !             3: c      Characters
        !             4:        character*1 kew
        !             5:        parameter(kew='q')
        !             6: c      common /t5/ c1,c2,c3,color,hue,tint
        !             7:        character*1 c1,c2,c3
        !             8:        character*6 color,hue,tint
        !             9: 
        !            10:        if ( 'q' .ne. kew ) call e(1,ntest)
        !            11:        c1 = 'a'
        !            12:        c2 = 'b'
        !            13:        c3 = 'a'
        !            14:        if ( c1 .eq. c2 ) call e(2,ntest)
        !            15:        if ( c1 .ne. c3 ) call e(3,ntest)
        !            16: 
        !            17:        color = 'yellow'
        !            18:        hue = 'blue'
        !            19:        tint = 'yellow'
        !            20:        if ( color .eq. hue ) call e(6,ntest)
        !            21:        if ( color .ne. tint ) call e(7,ntest)
        !            22:        end

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