Fortran: 09.01.10.01/P01
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/01 *
C * TEST TITLE : Error 2000 handled by user *
C * *
C * PHIGS Validation Tests, produced by NIST *
C * *
C *********************************************************
CALL INITGL ('09.01.10.01/01')
CALL E12000 (1)
CALL ENDIT
END