PROGRAM FILE 101: EXCEPTION - NUMERIC OVERFLOW ON READ.
    ANSI STANDARD 14.5

SECTION 101.1: EXCEPTION - POSITIVE OVERFLOW ON READ.

THIS TEST CAUSES 9.9E99999 TO BE READ INTO A NUMERIC
VARIABLE. IN ORDER TO PASS, THE PROCESSOR MUST EITHER:

1) CORRECTLY ACCEPT THE NUMBER AND RETAIN ITS VALUE IN
   THE VARIABLE, AS DEMONSTRATED IN THE PRINTING, OR

2) DETECT NUMERIC OVERFLOW, REPORT THE EXCEPTION,
   SUPPLY POSITIVE MACHINE INFINITY AND CONTINUE.

                 BEGIN TEST

ABOUT TO EXECUTE READ.
*** Arithmetic Overflow ***

RESULTING VALUE IN VARIABLE =  1.79769E+308 

IF EXCEPTION OCCURRED, VARIABLE SHOULD = POSITIVE INFINITY.
IF NOT, IT SHOULD = 9.9E99999; OTHERWISE,
***  TEST FAILED  *** 

                 END TEST

SECTION 101.2: EXCEPTION - NEGATIVE OVERFLOW ON READ

THIS SECTION IS IDENTICAL TO THE PREVIOUS, EXCEPT THAT
-9.9E99999 IS USED TO CAUSE OVERFLOW.

                 BEGIN TEST

ABOUT TO EXECUTE READ.
*** Arithmetic Overflow ***

RESULTING VALUE IN VARIABLE = -1.79769E+308 

IF EXCEPTION OCCURRED, VARIABLE SHOULD = NEGATIVE INFINITY.
IF NOT, IT SHOULD = -9.9E99999; OTHERWISE,
***  TEST FAILED  *** 

                 END TEST

END PROGRAM 101
