[comp.sys.apollo] Fortran error trapping

mroussel@alchemy.chem.utoronto.ca (Marc Roussel) (11/20/90)

     I've read the man page on fpp_$set_trap_enables and I've written a
little program that sets the trap and then does something horrible to
verify that it works.  So far so good... the program terminates normally
after doing something that should have caused an exception.
Unfortunately, I need to be able to figure when a program has tripped
the trap so to speak and I can't figure out how to do this.  The
following pseudo-code should demonstate what I want to do:

      call fpp_$set_trap_enables
      do some math
      if result is not a number then
	execute some error recovery code and loop back
      end if

Does anyone know how to decide if the result of the math is somehow
invalid?

                                Thanks,

				Marc R. Roussel
                                mroussel@alchemy.chem.utoronto.ca