PROGRAM FILE 111: EXCEPTION - NUMERIC UNDERFLOW ON INPUT
        CAUSES REPLACEMENT BY ZERO.
    ANSI STANDARD 5.6, 13.4

SECTION 111.1: EXCEPTION - NUMERIC UNDERFLOW ON INPUT
        CAUSES REPLACEMENT BY ZERO.

TO PASS THIS TEST:

    1) A MESSAGE IDENTIFYING THE EXCEPTION MAY BE
       DISPLAYED (NOT MANDATORY), AND

    2) ZERO MUST BE SUPPLIED AS THE VALUE OF THE
       NUMERIC CONSTANT IN THE INPUT-REPLY.

AFTER THE INPUT-PROMPT, ENTER 1E-99999. THIS IS INTENDED
TO CAUSE NUMERIC UNDERFLOW. IF IT DOES, THE PROCESSOR
MUST SET THE VALUE OF THE VARIABLE TO ZERO.

SINCE '1E-99999' IS A SYNTACTICALLY LEGAL NUMBER,
IF THE PROCESSOR DOES NOT ACCEPT 1E-99999 AS INPUT,
***  TEST FAILS  ***

                                BEGIN TEST.

ENTER 1E-99999
? 1E-99999

RESULTING VALUE= 0 

*** TEST PASSED ***

                                END TEST.

END PROGRAM 111
