Return to chf.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/chf.f, revision 1.1.1.1

1.1       root        1:        character*1 getchr,ich
                      2:        ich=getchr("A")
                      3:        if(ich.ne.getchr("A")) write(6,100)
                      4: 100    format("Error in character functions")
                      5:        stop
                      6:        end
                      7:        
                      8:        character*1 function getchr(ich)
                      9:        character*1 ich
                     10:        print 8000, ich, ichar(ich)
                     11: 8000   format('in getchr with ich = ',a1,' (',16r,i6.2,')')
                     12:        getchr=ich
                     13:        return
                     14:        end

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