FORTRAN Reference Manual

Compiler Directives
FORTRAN Reference Manual—528615-001
10-11
COMPACT Compiler Directive
°
In ANSI mode, the compiler truncates or pads (with blanks) each source line to
make it exactly 72 characters. The COLUMNS directive makes the compiler
ignore all source text beyond the specified number of characters, but it does
not affect source lines shorter than that. This distinction can be important if any
character constants are continued from one line to the next.
°
The SOURCE and SECTION directives do not affect the ANSI mode.
•
The ANSI directive temporarily overrides the effects of any COLUMNS directives.
•
When the value set by COLUMNS is less than 132, the compiler prints each
source line image with a vertical bar character between the last character of a line
and the first ignored character of that line. For example, when COLUMNS 72 is in
effect, the compiler prints a vertical bar between columns 72 and 73 of each source
line image.
Examples
This directive appears at the beginning of a source file that has comments beginning at
column 81 of each line:
?COLUMNS 80
This directive appears at the beginning of a source file that has no comments at the
ends of the lines. It prevents truncation of lines if this file is read in by a file that has
narrow lines specified.
?COLUMNS 132
COMPACT Compiler Directive
The COMPACT directive specifies that BINSERV should attempt to compact the code
space of the target file.
The default value is NOCOMPACT.
Considerations
A run unit can include as many as 32 code segments: 16 in user code space and 16 in
user library space. Each code segment consists of up to 64K words. The FORTRAN
compiler generates code-space blocks that cannot straddle the 32K-word boundary in
a 64K-word code segment.
•
If you specify NOCOMPACT, BINSERV allocates code-space blocks in the order in
which they are presented to the compiler. This can leave gaps between the
32Kword boundary and the last code-space block below it, and between the 64K-
word boundary and the last code-space below it.
[NO]COMPACT