Return to fpetst.f CVS log

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

Annotation of 42BSD/usr.lib/libF77/test/fpetst.f, revision 1.1.1.1

1.1       root        1:        program fpetst
                      2:        character arg
                      3:        logical flag
                      4:        common /fpeflt/ flag
                      5: 
                      6:        call trpfpe(1, 1.2345d0)
                      7:        call traper(3)
                      8:        i = 10
                      9:        j = 0
                     10:        x = 10.
                     11:        y = 0.
                     12: 
                     13:        write (*,*) 
                     14:        call getarg (1, arg)
                     15:        if (arg .eq. '1') then
                     16:                write(*,*) 'testing integer overflow, flag=', flag
                     17:                k = inmax() + 10
                     18:                write (*,*) 'k=', k, 'flag=', flag
                     19:                stop('returned')
                     20:        else if (arg .eq. '2') then
                     21:                write(*,*) 'testing integer divide by 0, flag=', flag
                     22:                k = i / j
                     23:                write (*,*) 'k=', k, 'flag=', flag
                     24:                stop('returned')
                     25:        else if (arg .eq. '3') then
                     26:                write(*,*) 'testing floating overflow, flag=', flag
                     27:                z = flmax() * 10.
                     28:                write(*,*) 'z=', z, 'flag=', flag
                     29:                stop('returned')
                     30:        else if (arg .eq. '4') then
                     31:                write(*,*) 'testing floating divide by 0, flag=', flag
                     32:                z = x / y
                     33:                write(*,*) 'z=', z, 'flag=', flag
                     34:                stop('returned')
                     35:        else if (arg .eq. '5') then
                     36:                write(*,*) 'testing floating underflow, flag=', flag
                     37:                z = flmin() / 10.
                     38:                write(*,*) 'z=', z, 'flag=', flag
                     39:                stop('returned')
                     40:        endif
                     41:        write(*,*) 'what??'
                     42:        end

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