THE FORTRAN IV-PLUS COMPILER The FORTRAN IV-PLUS compiler is an optimizing Fortran compiler capable of producing in-line code. It can potentially produce a Fortran program which executes almost as fast as an assembly language program. By convention /SW sets the switch action, and /NOSW negates the switch action ( SW represents a switch). The command line to the compiler looks like Object-File, List-File/listswitch = Source-File/switches The default extensions are .FTN for the Source-File, and .OBJ for the Object-File. Further HELP may be obtained by typing HELP F4P KEYWORD, using one of the following keywords. ERRORS (Options for getting HELP on errors) ERROR Rnn (HELP for a specific Runtime error number) ERROR Cnn (HELP for a specific Compile error number) LIST (Listing Switch Summary) RENAME (RENAMING a file from a F4P program) SWITCHES (Summary of F4P compiler switches) 2 ERRORS @F4PERROR.HLP 2 LIST F4P LISTING OPTIONS /LI:n Specifies listing options. (Defaults to LI:2) n=0 Minimal listing file. Diagnostic messages and program section summary only. n=1 Source listing and program section summary. n=2 Source listing, program section summary, and storage map. n=3 Source listing, assembly code, program section summary, and storage map. n=100000 Assembly code only. (undocumented) 2 SWITCHES F4P Compiler Switch Options /CK check array references /CO specify number of continuation lines /DE compile debug lines /ID print compiler version number /I4 allocate 2 words/integer /LA lock switch setting /LI list switch /RO generate read only code /SP spool listing file /TR controls error traceback /WF specify number of work files /WR enable warning diagnostics Switch default summary: /NOCK/CO:40/NODE/NOI4/NOLA/LI:2/RO/NOSP/TR:NONE/WF:2/WR HELP on any of these switches may be obtained by typing HELP F4P SWITCH /sw. where sw is the desired switch. 3 CK /CK Code is generated to check that all array references are within array address bounds. The default is /NOCK Use of this switch makes the task size larger and execution times slower, but it is useful for debugging. 3 CO /CO:n A maximum of n continuation lines are permitted in the program, 0<=n<=99. The default value is 40. The number n is expressed as a decimal number if followed by a period. Otherwise it is interpreted as an octal number. 3 DE /DE Compile lines with a D in column 1. These lines are treated as comment lines by the default /NODE switch. 3 ID /ID Print the compiler version number. The default is /NOID. 3 I4 /I4 Allocate two words for default length integer and logical variables. /NOI4 is the default. 3 LA /LA Causes the current switch settings to be retained (latched) for subsequent compilations. Default is /NOLA 3 LIST /LI:n Specifies listing options. (Default is /LI:2) Type HELP F4P LIST for details. 3 RO /RO Directs the compiler to specify pure code and pure data sections as READ ONLY(RO). The default is /RO. 3 SP /SP Automatically spool listing file. The default is /NOSP. 3 TR /TR:XXX The /TR switch controls the amount of extra code included in the compiled output for use in error traceback. The default is /TR:NONE /TR /TR:ALL /TR:LINES Error traceback is compiled for all source statements, and function and subroutine entries. /TR:BLOCKS Traceback information is compiled for subroutine and function entries and for certain selected source statements (starting off a block). /TR:NAMES Traceback information is compiled only for subroutine and function entries. /TR:NONE /NOTR Disables all traceback (and produces shorter, faster executing programs). 3 WF /WF:n The /WF switch determines the number of temporary external workfiles used to compile the program. One, two, or three files can be used. One file produces the shortest compilation time, but can compile the smallest number of statements. Three files can compile three times as many statements as one file but requires three times more time per statement than one work file compilations. The default is /WF:2. 3 WR /WR Enable compiler warning diagnostics (w-class messages). The default is /WR. 2 RENAME The FORTRAN callable subroutine RENAME may be used to rename a file from within an executing F4P program. The routine resides in [1,1]F4POTS.OLB and will automatically be linked to the user's task if called. FORTRAN CALL: CALL RENAME(LUN1,LUN2,IERR) LUN1 - THE UNIT NUMBER OF THE OLD FILE, WHICH MUST BE OPEN LUN2 - THE UNIT NUMBER OF THE NEW FILE NAME INFORMATION USE 'CALL ASSIGN' IERR - RETURN STATUS: FCS ERROR CODE OR 0