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) 16c 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 27