C*****************************************************************************
C
C	       Device & File Specification Function Test Controller
C
C-----------------------------------------------------------------------------
C
C Program	: Test Device&file/ TdeviS.For
C Author	: John Malcolmson
C Date		: July 1986
C Language	: Fortran 77
C Notes		: The program is chained to by the Libtst program.
C
C*****************************************************************************

	Program TDeviS

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM DEVIS IMPORT AS
		Integer*4	TstIasign, TstFIcsi
C	END IMPORT
C
C----------------------------------------------------------------------------)

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

		Astat(01) = TstIasign()
		ALabl(01) = 'IASIGN'
		Astat(02) = TstFIcsi()
		Alabl(02) = 'ICSI'

		st = '===== Device & File Function Error Report Summary =====\'
		Call CenterString( st )
		Call WriteLn
		Rprt = Report( Astat, Alabl, 02 )
		st = '===== End of Device & File Function Report =====\'
		Call CenterString( st )
		Call WriteLn
		Call WriteLn

		include 'SRC:Tend.for'