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

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.