Return to fktst.f CVS log

Up to [CSRG BSD Unix] / 43BSDReno / lib / libU77 / test

Annotation of 43BSDReno/lib/libU77/test/fktst.f, revision 1.1.1.1

1.1       root        1:        common/sig/whoami
                      2:        character*6 whoami
                      3:        integer fork, getpid, wait, tick
                      4:        external trap
                      5: 
                      6:        call signal(2, trap, -1)
                      7:        call signal(3, trap, -1)
                      8:        call signal(6, trap, -1)
                      9:        call signal(8, trap, -1)
                     10:        call signal(15, trap, -1)
                     11: 
                     12:        tick = 1
                     13:        id = fork()
                     14:        if (id .eq. 0) then
                     15:            whoami = "child"
                     16:            write(*,*) "child:", getpid()
                     17:            call flush(6)
                     18:    10      call sleep(1)
                     19:            write(*,'(1x,i2,$)') tick
                     20:            call flush(6)
                     21:            tick = tick + 1
                     22:            goto 10
                     23:        else
                     24:            whoami = "parent"
                     25:            call sleep(5)
                     26:            write(*,*) "\nparent:", id
                     27:            call flush(6)
                     28:            istat = kill(id, 15)
                     29:            write(*,*) "\nkill status:", istat
                     30:            call flush(6)
                     31:            iwait = wait(isw)
                     32:            write(*,*) iwait, isw
                     33:        endif
                     34:        end
                     35: 
                     36:        subroutine trap(num)
                     37:        common/sig/whoami
                     38:        character*6 whoami
                     39:        write(*,*) "\ntrap:", whoami, num
                     40:        stop
                     41:        end

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