C  *********************************************************
C  *                                                       *
C  *    TEST NUMBER: 09.01.04.01/03                        *
C  *    TEST TITLE : Error 152 handled by user             *
C  *                                                       *
C  *    PHIGS Validation Tests, produced by NIST           *
C  *                                                       *
C  *********************************************************
 
      CALL INITGL ('09.01.04.01/03')
      CALL E04152 (1)
      CALL ENDIT
      END
