Fortran: 09.01.10.01/P03

This is Fortran source code, based on the abstract design for this program. You may return to the documentation for the module containing this program, or to the entire hierarchical table of topics covered by the PVT.

C  *********************************************************
C  *                                                       *
C  *    TEST NUMBER: 09.01.10.01/03                        *
C  *    TEST TITLE : Error 2004 handled by user            *
C  *                                                       *
C  *    PHIGS Validation Tests, produced by NIST           *
C  *                                                       *
C  *********************************************************

      CALL INITGL ('09.01.10.01/03')
      CALL E12004 (1)
      CALL ENDIT
      END