PROGRAM FILE 72: EXCEPTION - SUBSCRIPT TOO SMALL FOR:
        TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1.
    ANSI STANDARD 6.5, 15.2, 15.4

SECTION 72.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR
        TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1.

THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR
RECOGNIZES USE OF A ZERO SUBSCRIPT AS A FATAL EXCEPTION WHEN
OPTION BASE 1 HAS BEEN SPECIFIED ALONG WITH A
TWO-DIMENSIONAL ARRAY SET UP WITH A DIM-STATEMENT.

TO PASS THIS TEST:

    1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE
       DISPLAYED, AND

    2) THE PROGRAM MUST TERMINATE UPON USE OF THE ZERO
       SUBSCRIPT.

                               BEGIN TEST.

ABOUT TO ASSIGN TO B(12, 4 ). ASSIGNMENT SHOULD BE OK.
HAVE ASSIGNED  6  TO B(12, 4 ).

ABOUT TO ASSIGN TO B(12, 3 ). ASSIGNMENT SHOULD BE OK.
HAVE ASSIGNED  7  TO B(12, 3 ).

ABOUT TO ASSIGN TO B(12, 2 ). ASSIGNMENT SHOULD BE OK.
HAVE ASSIGNED  8  TO B(12, 2 ).

ABOUT TO ASSIGN TO B(12, 1 ). ASSIGNMENT SHOULD BE OK.
HAVE ASSIGNED  9  TO B(12, 1 ).

ABOUT TO ASSIGN TO B(12, 0 ).*** EXCEPTION SHOULD OCCUR NOW ***

ERROR in line 310: SUBSCRIPT OUT OF RANGE B(0)
