! Job to test the FORTRAN system on the DECSYSTEM-20 ! SUBMIT F20TST.CTL /TIME:0:05:00 !THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED ! OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. !COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1981, 1983 ! VERSION 7 F20TST.CTL Jan 1983 ! Control file to run the FORTRAN version 7 installation test system and ! confirm that all essential parts of Fortran are present on tapes sent ! to field testing. ! Files needed on DSK: ! F20TST.CTL This file ! FORTRA.EXE ! FORTRA.HLP ! FORLIB.REL ! FOROT7.EXE ! FORDDT.HLP ! FORDDT.REL ! FORPRM.UNV ! LINK.EXE ! OVRLAY.REL ! ARRAYS.FOR ! ASCII.FOR ! BINARY.FOR ! CHARIO.FOR ! CHFUN.FOR ! COMEQ.FOR ! DO.FOR ! DOWHIL.FOR ! GOTO.FOR ! IF.FOR ! IFTHEL.FOR ! IMAGE.FOR ! INTFIL.FOR ! IOEXPR.FOR ! LIB.FOR ! NAMLST.DAT ! NAMLST.FOR ! OVL0.FOR ! OVL1.FOR ! OVL2.FOR ! OVL3.FOR ! OVL4.FOR ! OVL5.FOR ! OVL6.FOR ! RANDOM.FOR ! SUBFUN.FOR ! SUBSTR.FOR ! T4DDT.FOR ! V7DO.FOR ! V7LIB.FOR ! Setup libraries. !*********************************************************************** ! DSK: must be defined to find the sources for testing !*********************************************************************** !@DEFINE DSK: @DEFINE SYS: DSK:,SYS: @DEFINE HLP: DSK: ! Clean out. @NOERROR @DELETE ARRAYS.REL,ASCII.LST,ASCII.REL,BINARY.REL,DO.REL,GOTO.REL, @EXPUNGE @ @DELETE IF.REL,IMAGE.REL,LIB.REL,RANDOM.REL,SUBFUN.REL,T4DDT.REL, @EXPUNGE @ @DELETE CHARIO.REL,CHDATA.REL,CHFUN.REL,COMEQ.REL, @EXPUNGE @ @DELETE IFTHEL.REL,INTFIL.REL,IOEXPR.REL,NAMLST.REL,DOWHIL.REL @EXPUNGE @ @DELETE OVL0.REL,OVL1.REL,OVL2.REL,OVL3.REL,OVL4.REL,OVL5.REL,OVL6.REL, @EXPUNGE @ @DELETE SUBSTR.REL,V7DO.REL,V7LIB.REL, @EXPUNGE @ @DELETE FOR20.DAT,FOR21.DAT,FOR22.DAT,FOR23.DAT, @EXPUNGE @ @ERROR ! Check for all required FORTRAN components. @ERROR % @DIRECT DSK:FORTRA.EXE, DSK:FORTRA.HLP, DSK:FORLIB.REL, DSK:FOROT7.EXE @IF (ERROR) @GOTO UERR @DIRECT DSK:FORDDT.HLP, DSK:FORDDT.REL @IF (ERROR) @GOTO UERR @ERROR @GET DSK:FORTRA.EXE @INFORMATION VERSION @GET DSK:FOROT7.EXE @INFORMATION VERSION @GET DSK:LINK.EXE @INFORMATION VERSION ! Warnings are not permitted either. @ERROR % ! Generate a binary (.REL) and listing (.LST) file and verify that ! they were produced. Also check the compiler HELP facility. @FORTRA *ASCII,ASCII=ASCII.FOR @IF (ERROR) @GOTO UERR */HELP @IF (ERROR) @GOTO UERR @DIRECT ASCII.LST @IF (ERROR) @GOTO UERR @DIRECT ASCII.REL @IF (ERROR) @GOTO UERR ! Test to see that all intrinsic functions and Fortran supplied ! subroutines exist in FORLIB. If LINK produces an error such as ! "Undefined Globals", then some of the routines are missing. ! Program is merely loaded, not executed. @COMPILE LIB.FOR @LOAD LIB.REL @IF (ERROR) @GOTO UERR ! Run FORDDT & make sure it works minimally. ! No errors of any type should appear. @DEBUG T4DDT.FOR /LANGUAGE-SWITCH:"/DEBUG:ALL" *T4DDT *HELP *PAUSE 10 *START *TYPE X *MODE I *TYPE I *STOP @IF (ERROR) @GOTO UERR ! Test non-sharable FOROTS. ! ASCII previously compiled. @LINK *ASCII.REL /OTS:NONSHAR /GO @START @IF (ERROR) @GOTO UERR ! Try FORDDT with the non-sharable FOROTS. @COMPILE T4DDT.FOR /COMP /LANGUAGE-SWITCH:"/DEB:(DIM,BOU)" @LINK *T4DDT.REL /SEG:LOW /DEBUG:FORTRA /OTS:NONSHAR /GO *T4DDT *PAUSE 10 *START *TYPE X *CONTINUE @IF (ERROR) @GOTO UERR ! Test arrays. @EXECUTE ARRAYS.FOR @IF (ERROR) @GOTO UERR @EXECUTE ARRAYS.FOR /COMP /OPT @IF (ERROR) @GOTO UERR ! Test ASCII I/O. @EXECUTE ASCII.FOR /COMP @IF (ERROR) @GOTO UERR @EXECUTE ASCII.FOR /COMP /OPT @IF (ERROR) @GOTO UERR ! Test BINARY I/O. @EXECUTE BINARY.FOR @IF (ERROR) @GOTO UERR @EXECUTE BINARY.FOR /COMP /OPT @IF (ERROR) @GOTO UERR ! Test DO loops. @EXECUTE DO.FOR @IF (ERROR) @GOTO UERR @EXECUTE DO.FOR /COMP /OPT @IF (ERROR) @GOTO UERR ! Test GO TO statements. @EXECUTE GOTO.FOR @IF (ERROR) @GOTO UERR @EXECUTE GOTO.FOR /COMP /OPT @IF (ERROR) @GOTO UERR ! Test IF statements. @EXECUTE IF.FOR @IF (ERROR) @GOTO UERR @EXECUTE IF.FOR /COMP /OPT @IF (ERROR) @GOTO UERR ! Test IMAGE I/O. @EXECUTE IMAGE.FOR @IF (ERROR) @GOTO UERR @EXECUTE IMAGE.FOR /COMP /OPT @IF (ERROR) @GOTO UERR ! Test RANDOM access I/O. @EXECUTE RANDOM.FOR @IF (ERROR) @GOTO UERR @EXECUTE RANDOM.FOR /COMP /OPT @IF (ERROR) @GOTO UERR ! Test subroutines and functions. @EXECUTE SUBFUN.FOR @IF (ERROR) @GOTO UERR @EXECUTE SUBFUN.FOR /COMP /OPT @IF (ERROR) @GOTO UERR ! Character I/O EXECUTE CHARIO.FOR @IF (ERROR) @GOTO UERR ! Character data in DATA statements @EXECUTE CHDATA.FOR @IF (ERROR) @GOTO UERR ! Character Functions @EXECUTE CHFUN.FOR @IF (ERROR) @GOTO UERR ! Character COMMON/EQUIVALENCE @EXECUTE COMEQ.FOR @IF (ERROR) @GOTO UERR ! DO WHILE @EXECUTE DOWHIL.FOR @IF (ERROR) @GOTO UERR ! IF-THEN-ELSE @EXECUTE IFTHEL.FOR @IF (ERROR) @GOTO UERR ! Internal files @EXECUTE INTFIL.FOR @IF (ERROR) @GOTO UERR ! Expression in I/O statements @EXECUTE IOEXPR.FOR @IF (ERROR) @GOTO UERR ! NAMELIST I/O @EXECUTE NAMLST.FOR @IF (ERROR) @GOTO UERR ! Overlays @COMPILE /COMP OVL0.FOR,OVL1.FOR,OVL2.FOR,OVL3.FOR,OVL4.FOR,OVL5.FOR,OVL6.FOR @IF (ERROR) @GOTO UERR @LINK @IF (ERROR) @GOTO UERR *TEST/OVERLAY @IF (ERROR) @GOTO UERR *tty:/plot @IF (ERROR) @GOTO UERR */ERROR:0 @IF (ERROR) @GOTO UERR *OVL0,OVL1/LINK:TEST @IF (ERROR) @GOTO UERR * /NODE:TEST OVL2/LINK:LEFT @IF (ERROR) @GOTO UERR * /NODE:LEFT OVL5/LINK:LEFT1 @IF (ERROR) @GOTO UERR * /NODE:LEFT OVL6/LINK:LEFT2 @IF (ERROR) @GOTO UERR * /NODE:TEST OVL3,OVL4/LINK:RIGHT @IF (ERROR) @GOTO UERR *TEST/SAVE @IF (ERROR) @GOTO UERR */E/G @IF (ERROR) @GOTO UERR ! Character substring @EXECUTE SUBSTR.FOR @IF (ERROR) @GOTO UERR ! Zero-trip DO loops @EXECUTE V7DO.FOR @IF (ERROR) @GOTO UERR @EXECUTE V7DO.FOR/COMP/OPT @IF (ERROR) @GOTO UERR ! ANSII-77 library routines. Something is wrong if LINK cannot ! find them. @LOAD V7LIB.FOR @IF (ERROR) @GOTO UERR @GOTO END %ERR:: @GOTO UERR UERR:: ! ********************************************************* ! ********************************************************* ! * * ! * ?Unexpected error - should not occur * ! * * ! ********************************************************* ! ********************************************************* @GOTO END END:: ! Cleanup @ @NOERROR @DELETE ARRAYS.REL,ASCII.LST,ASCII.REL,BINARY.REL,DO.REL,GOTO.REL, @EXPUNGE @ @DELETE IF.REL,IMAGE.REL,LIB.REL,RANDOM.REL,SUBFUN.REL,T4DDT.REL, @EXPUNGE @ @DELETE CHARIO.REL,CHDATA.REL,CHFUN.REL,COMEQ.REL, @EXPUNGE @ @DELETE IFTHEL.REL,INTFIL.REL,IOEXPR.REL,NAMLST.REL, @EXPUNGE @ @DELETE OVL0.REL,OVL1.REL,OVL2.REL,OVL3.REL,OVL4.REL,OVL5.REL,OVL6.REL, @EXPUNGE @ @DELETE SUBSTR.REL,V7DO.REL,V7LIB.REL,DOWHIL.REL, @EXPUNGE @ @DELETE FOR20.DAT,FOR21.DAT,FOR22.DAT,FOR23.DAT, @EXPUNGE @ @ERROR %FIN:: ! [End F20TST.CTL]