Google
 

Trailing-Edge - PDP-10 Archives - BB-4171H-BM - uetp/lib/fortra.app
There are 9 other files named fortra.app in the archive. Click here to see a list.
!
!
!	FORTRA.APP
!
!	(C) 1979 by Digital Equipment Corporation
!
!
!	The program used finds roots of a polynominal,
!	and checks them against previous results.
!
!
!	Files required
!
!	T467.Dat          The input file
!	T467.Da1          The previous output file
!	467.For, T467.For The programs themselves
!	Sys:Fortra.Exe    The compiler
!
!

!.R SETSRC
*CP [5,33,FORTRA]
*LIB:[5,33]
*

!.Set default prot <000>

@DEFINE UTP: <UETP.LIB>		!.none
@Define Dsk: <Uetp.Fortran>,Dsk:<Uetp.Lib>	!.none

@TAKE SYS.CMD	!.none
!
!	Message:  Start of Fortran test
!
@RUN UTP:SENDER	!.RUN UTP:SENDER
*Type START
*Blabel BEGIN:
*Test FORTRA
*Send Start of FORTRAN test
*Exit

@NOERROR	!.NOERROR
@DELETE *.*
@EXPUNGE <UETP.FORTRAN>	!.none
@ERROR	!.ERROR
!
!	Test for the existence of the compiler
!
@GET SYS:FORTRA.EXE	!.GET SYS:FORTRA.EXE
@IF (NOERROR) GOTO FORTRA::	!.IF (NOERROR) GOTO FORTRA::
!
!	Message:  FORTRAN not available
!
@RUN UTP:SENDER	!.RUN UTP:SENDER
*Type ERROR
*Blabel BEGIN:
*Test FORTRA
*Send FORTRAN not available
*Exit

@GOTO END::	!.GOTO END::

Fortra::

@LOAD 467,T467
@IF (NOERROR) GOTO COMPOK::	!.IF (NOERROR) GOTO COMPOK::

!	Message:  Error in compiling FORTRAN program

@RUN UTP:SENDER	!.RUN UTP:SENDER
*Type ERROR
*Blabel COMPIL:
*Test FORTRA
*Send Error in compiling FORTRAN program
*Exit

@GOTO END::	!.GOTO END::

Compok::

@START	!.START
@IF (NOERROR) GOTO RUNOK::	!.IF (NOERROR) GOTO RUNOK::

!	Message:  Error in running FORTRAN program

@RUN UTP:SENDER	!.RUN UTP:SENDER
*Type ERROR
*Blabel COMPOK:
*Test FORTRA
*Send Error in running FORTRAN progam
*Exit

@GOTO END::	!.GOTO END::

Runok::

!	Now compare output file with previous output file

@ERROR %	!.ERROR %
@DEFINE UL: <UETP.FORTRAN>	!.ASSIGN DSK: UL:
@FILCOM	!.R FILCOM
*Nul:=T467.Da1,UL:T467.Out
*
@IF (NOERROR) GOTO FCOMOK::	!.IF (NOERROR) .GOTO FCOMOK::

!	Message:  Output file is incorrect

@RUN UTP:SENDER	!.RUN UTP:SENDER
*Type ERROR
*Blabel Runok:
*Test FORTRA
*Send Error in output file
*Exit

Fcomok::

@GOTO END::	!.GOTO END::

%Terr::

!	Message:  Time out error in FORTRAN test

@RUN UTP:SENDER	!.RUN UTP:SENDER
*Type ERROR
*Blabel Terr:
*Test FORTRA
*Send Time out error in FORTRAN test
*Exit

@GOTO END::	!.GOTO END::



%Err::
@CHKPNT DSKFD:	!.CHKPNT DSKFD:

!	Message:  Unknown error in FORTRAN test
@RUN UTP:SENDER	!.RUN UTP:SENDER
*Type ERROR
*Blabel END:
*Test FORTRA
*Send Unkown error in FORTRAN test
*Exit
@GOTO END::	!.GOTO END::

End::
@RUN UTP:SENDER	!.RUN UTP:SENDER
*Type END
*Blabel END:
*Test FORTRA
*Send End of FORTRAN test
*Exit