Fortran: 09.01.04.02/P07

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.04.02/07                        *
C  *    TEST TITLE : Error 157 handled by system           *
C  *                                                       *
C  *    PHIGS Validation Tests, produced by NIST           *
C  *                                                       *
C  *********************************************************

      CALL INITGL ('09.01.04.02/07')
      CALL E04157 (2)
      CALL ENDIT
      END