C*****************************************************************************
C
C	            Date Support Function Test Controller
C
C-----------------------------------------------------------------------------
C
C Program	: Test Date Support/ TDates.For
C Author	: I. B. Sokari
C Date		: August 1988
C Language	: Fortran 77
C Notes		: The program is chained to by the Libtst program.
C
C*****************************************************************************

	Program TDates

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM DATES IMPORT AS
		Integer*4	TstDates, TstIdcomp
C	END IMPORT
C
C----------------------------------------------------------------------------)

		Character*80	st
		Integer*4	AStat(3)
		Character*6     Alabl(3)

		Include 'SRC:Tbegin.for'
		IF (page) Call SetPage('Date Support Functions \', pnum)

		Astat(01) = TstDates()		! For DATE, IDATE, DATE4Y, 
		ALabl(01) = 'DATES'		! DATE4Y, and IWEEKD Functions
		Astat(02) = TstIdcomp()		! For IDCOMP Date Function.
		ALabl(02) = 'IDCOMP'

		st = '===== Date Support Function Error Report Summary =====\'
		Call CenterString( st )
		Call WriteLn
		Rprt = Report( Astat, Alabl, 2 )
		st = '===== End of Date Support Function Report =====\'
		Call CenterString( st )
		Call WriteLn
		Call WriteLn

		Include 'SRC:Tend.for'