H.1 Compaq Fortran Language Extensions

This section summarizes the Compaq Fortran language extensions. Most extensions are available on Tru64 UNIX, Windows NT, Windows 9*, and OpenVMS systems. However, some extensions are limited to one or more systems. If an extension is limited, it is labeled.

Source Forms

The following are extensions to the methods and rules for source forms:

• Tab-formatting as a method to code lines (see Section 2.3.2.2)

• The letter D as a debugging statement indicator in column 1 of fixed or tab source form (see Section 2.3.2)

• An optional statement field width of 132 columns for fixed or tab source form (see Section 2.3.2)

• An optional sequence number field for fixed source form (see Section 2.3.2.1)

• Up to 511 continuation lines in a source program (see Section 2.3)

The following are data-type extensions (see Section 3.1):

BYTE	INTEGER*1	REAL*8 [2]
LOGICAL*1	INTEGER*2	REAL*16 [3]
LOGICAL*2	INTEGER*4	COMPLEX*8
LOGICAL*4	INTEGER*8 [1]	COMPLEX*16 [2]
LOGICAL*8 [1]	REAL*4
[1] Alpha only [2] D_floating and G_floating implementations are available on OpenVMS systems only. [3] VMS, U*X

Constants

C strings are allowed in character constants as an extension (see Section 3.1.5.1).

Hollerith constants are allowed as an extension (see Section 3.3.4).

Derived Data Types

As an extension, default initial values for derived-type components can be specified in derived-type definitions (see Section 3.2.2).

Arrays

As an extension, arrays declared using the ALLOCATABLE attribute can be automatically deallocated (see Section 6.1.1).

Expressions and Assignment

When operands of different intrinsic data types are combined in expressions, conversions are performed as necessary (see Section 4.1.1.2).

Binary, octal, hexadecimal, and Hollerith constants can appear wherever numeric constants are allowed (see Section 3.3).

The following are extensions allowed in logical expressions (see Section 4.1.4):

• .XOR. as a synonym for .NEQV.

• Integers as valid logical items

The FORALL construct and statement are extensions (see Section 4.2.5). ¹

Specification Statements

The following specification attributes and statements are extensions:

• AUTOMATIC and STATIC (see Section 5.3)

• VOLATILE (see Section 5.19)

The ELEMENTAL and PURE ¹ prefixes are allowed in functions and subroutines as extensions (see Sections 8.4.2 and 8.4.3).

As an extension, the END INTERFACE statement of an interface block defining a generic routine can specify a generic identifier (see Section 8.8.2).

Compilation Control Statements

The following statements are extensions that can influence compilation (see Section 14.1):

• INCLUDE statement format (VMS only):

      INCLUDE '[text-lib] (module-name) [/[NO]LIST]'
  

• OPTIONS statement:

      /ASSUME = [NO]UNDERSCORE   (Alpha only)
  
               {ALL            }
               {[NO]BOUNDS     }
      /CHECK = {[NO]OVERFLOW   }
               {[NO]UNDERFLOW  }
               {NONE           }
  
      /NOCHECK
  
                 {BIG_ENDIAN     }
                 {CRAY           }
                 {FDX            }
                 {FGX            }
      /CONVERT = {IBM            }
                 {LITTLE_ENDIAN  }
                 {NATIVE         }
                 {VAXD           }
                 {VAXG           }
  
      /[NO]EXTEND_SOURCE
      /[NO]F77
  
               {D_FLOAT   (VMS only)  }
      /FLOAT = {G_FLOAT   (VMS only)  }
               {IEEE_FLOAT            }
  
      /[NO]G_FLOATING   (VMS only)
      /[NO]I4
      /[NO]RECURSIVE
  

The %VAL, %REF, %DESCR (VMS only), and %LOC built- in functions are extensions (see Section 8.7.9).

I/O Statements

The following I/O statements and specifiers are extensions:

• REWRITE statement (see Section 10.7)

• ACCEPT statement (see Section 10.4)

• TYPE statement; a synonym for the PRINT statement (see Section 10.6)

• A key-field-value specifier as a control list parameter (VMS only) (see Section 10.2.1.5)

• A key-of-reference specifier as a control list parameter (VMS only) (see Section 10.2.1.6)

• Indexed READ statement (VMS only) (see Section 10.3.3)

• Indexed WRITE statement (VMS only) (see Section 10.5.3)

As an extension, comments (beginning with !) are allowed in namelist input data.

I/O Formatting

The following are extensions allowed in I/O formatting:

• The Q edit descriptor (see Section 11.3.9)

• The dollar sign ($) edit descriptor (see Section 11.3.8 and carriage control character (see Section 11.7)

• The backslash (\) edit descriptor (see Section 11.3.8)

• The ASCII NUL carriage control character (see Section 11.7)

• Variable format expressions (see Section 11.6)

• In output using I, B, O, Z, and F edit descriptors, the specified value of the field width can be zero (see Section 11.2.2).

The following intrinsic procedures are extensions (see Chapter 9):

ACOSD	COTAND	IBCHNG	POPPAR
ASIND	CPU_TIME	IDATE	QEXT [4]
ASM [1]	DATE	ISHA	QFLOAT [4]
ATAND	DCMPLX	ISHC	RAN
ATAN2D	DFLOAT	ISHL	RANDU
CDABS [2]	DREAL	ISNAN	SECNDS
CDCOS [2]	EOF	LEADZ	SIND
CDEXP [2]	ERRSNS	LOC	SIZEOF
CDLOG [2]	EXIT	MALLOC	TAND
CDSIN [2]	FP_CLASS	MULT_HIGH [1]	TIME
CDSQRT [2]	FREE	NULL	TRAILZ
COSD	IARGCOUNT [3]	NWORKERS	ZEXT
COTAN	IARGPTR	POPCNT
[1] Alpha only [2] Double precision complex intrinsics can also begin with the letter Z (see Chapter 9). For example, CDABS can also be spelled ZABS. [2] VMS only [3] VMS, U*X

The following INTEGER(8) specific functions are extensions available on Alpha processors (see Chapter 9):

AKMAX0	KIBCLR	KIFIX	KMIN0
AKMIN0	KIBITS	KINT	KMIN1
BKTEST	KIBSET	KIOR	KMOD
DFLOTK	KIDIM	KISHFT	KNINT
FLOATK	KIDINT	KISIGN	KNOT
KIABS	KIDNNT	KMAX0	KZEXT
KIAND	KIEOR	KMAX1

As an extension, the keyword KIND can be specified for CEILING and FLOOR (see Sections 9.3.22 and 9.3.50, respectively).

As an extension, SIGN can distinguish between positive and negative zero (see Section 9.3.132).

Additional Language Features

The following are language extensions that facilitate compatibility with other versions of Fortran:

• DEFINE FILE statement (see Section B.1)

• ENCODE and DECODE statements (see Section B.2)

• FIND statement (see Section B.3)

• An alternative syntax for the PARAMETER statement (see Section B.4)

• VIRTUAL statement (see Section B.5)

• AND, OR, XOR, IMAG, LSHIFT, RSHIFT intrinsics (see Table 9-3)

• An alternative syntax for octal and hexadecimal constants (see Section B.6)

• An alternative syntax for an I/O record specifier (see Section B.7)

• An alternate syntax for the DELETE statement (see Section B.8)

• An alternative form for namelist external records (see Section B.9)

• The Compaq Fortran POINTER statement (see Section B.10)

• Record structures (see Section B.11)

In addition, run-time library routines are available for directed parallel decomposition on Tru64 UNIX systems (see Appendix F).

¹ For more information on these features, see also the Compaq High Performance Fortran 90 HPF and PSE Manual.