C*****************************************************************************
C
C	             File-Oriented Function Test Controller
C
C-----------------------------------------------------------------------------
C
C Program	: Test File-Oriented/ TFileO.For
C Author	: John Malcolmson
C Date		: June 1986
C Language	: Fortran 77
C Notes		: The program is chained to by the Libtst program.
C
C*****************************************************************************

	Program TFileO

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM FILEO IMPORT AS
		Integer*4	TstCloseC, TstIdelete, TstIenter, TstIfprot
		Integer*4	TstIrenam, TstIsfdat,  TstLookup, TstCorr
C	END IMPORT
C
C----------------------------------------------------------------------------)

		Character*80	st
		Integer*4	AStat(10)
		Character*6     Alabl(10)
		Include 'SRC:Tbegin.for'
		IF (page) Call SetPage('File Oriented Support Functions\',pnum )

		Astat(01) = TstCorr()
		ALabl(01) = 'CORUPT'
		Astat(02) = TstCloseC()
		Alabl(02) = 'CLOSEC'
		Astat(03) = TstIDelete()
		Alabl(03) = 'IDELET'
		Astat(04) = TstIenter()
		Alabl(04) = 'IENTER'
		Astat(05) = TstIfprot()
		Alabl(05) = 'IFPROT'
		Astat(06) = TstIrenam()
		Alabl(06) = 'IRENAM'
		Astat(07) = TstIsfdat()
		Alabl(07) = 'ISFDAT'
		Astat(08) = TstLookup()
		Alabl(08) = 'LOOKUP'
		Astat(09) = TstCorr()
		ALabl(09) = 'CORUPT'

		st = '===== File-Oriented Function Error Report Summary =====\'
		Call CenterString( st )
		Call WriteLn
		Rprt = Report( Astat, Alabl, 09 )
		st = '===== End of File-Oriented Function Report =====\'
		Call CenterString( st )
		Call WriteLn
		Call WriteLn

		Include 'SRC:Tend.for'