Return to t13.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/t13.f, revision 1.1

1.1     ! root        1: c      subroutine tst13
        !             2:        parameter(ntest=13)
        !             3: c      computed goto, arithmetic if
        !             4: 
        !             5:        i=3
        !             6:        x=0.5
        !             7:        if(i*i-7)1,2,3
        !             8: 1      call e(1,ntest)
        !             9:        goto 3
        !            10: 2      call e(2,ntest)
        !            11: 3      if(x*x-.25)4,5,6
        !            12: 4      call e(3,ntest)
        !            13:        goto 5
        !            14: 6      call e(4,ntest)
        !            15: 5      goto(7,8,9,9)i*i-7
        !            16: 7      call e(5,ntest)
        !            17:        goto 8
        !            18: 9      call e(6,ntest)
        !            19: 8      end

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