Return to sigtst.f CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libU77 / test

Annotation of 42BSD/usr.lib/libU77/test/sigtst.f, revision 1.1

1.1     ! root        1:        external fpe
        !             2:        integer signal
        !             3:        isave = signal(8, 0, 1)
        !             4:        write(*,*) "1", signal(8, 0, 0)
        !             5:        write(*,*) "0", signal(8, fpe, -1)
        !             6:        write(*,*) "addr fpe", signal(8, 0, isave)
        !             7:        write(*,*) isave, signal(8, fpe, -1)
        !             8:        x = 1/x
        !             9:        write(*,*) "Back again"
        !            10:        z = 1/z
        !            11:        write(*,*) "Saved again"
        !            12:        end
        !            13: 
        !            14:        subroutine fpe(flag)
        !            15:        call signal(8, fpe, -1)
        !            16: c      call sigset()
        !            17:        write(*,*) "Hi there sports fans!"
        !            18:        call flush(6)
        !            19:        return
        !            20:        end
        !            21: 
        !            22:        subroutine sigset()
        !            23:        external fpe
        !            24:        call signal(8, fpe, -1)
        !            25:        return
        !            26:        end

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