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

1.1       root        1:        common ifld(400),ipc,ipb,ipa,inextb
                      2:        common ifr,inextc,iresta,irestb,iquot,iaccb
                      3:        common iacca,ipb2,ipa2,ilp2,ibufa,ibufb
                      4:        read (5,1,end=2) ifld
                      5:        write(6,1)ifld
                      6: 1      format(i10)
                      7: 2      ipa=8
                      8:        ipb=1
                      9:        ipc=14
                     10:        inextb=8
                     11:        ifr=0
                     12:        call ovlay
                     13:        write(6,131)
                     14: 131    format('back')
                     15:        if (ifr) 21,21,31
                     16: 21     write(6,3)ifld
                     17: 3      format(i10)
                     18:        go to 4
                     19: 31     write(6,32)
                     20: 32     format('illegal overlay')
                     21: 4      end

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