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

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.