HP Fortran Release Notes Version 3.5 (5900-1775; September 2011; PA-RISC)

IEEE intrinsic modules
Intrinsic modules IEEE_ARITHMETIC AND IEEE_EXCEPTIONS, are now supported to provide various
facilities related to IEEE arithmetic. Procedure that uses IEEE_ARITHMETIC will have access to the
public features of IEEE_EXCEPTIONS.
Controlling IEEE underflow and Intrinsic Modules
Following procedures have been added to the intrinsic module IEEE_ARITHMETIC.
• IEEE_SUPPORT_UNDERFLOW_CONTROL: Inquire whether the procedure supports the ability
to control the underflow mode during program execution.
• IEEE_GET_UNDERFLOW_MODE: Get the current underflow mode
• IEEE_SET_UNDERFLOW_MODE: Set the current underflow mode.
Another IEEE class value (IEEE_OTHER_VALUE)
Computing access to the environment
Computing access to the environment is now supported by following intrinsic functions:
• GET_COMMAND - returns the command that invoked the program.
• GET_COMMAND_ARGUMENT - returns a command line argument of the command that
invoked the program.
• GET_ENVIRONMENT_VARIABLE - returns the value of the specified environment variable.
• COMMAND_ARGUMENT_COUNT - returns the number of command line arguments for the
command that invoked the program.
Binary, octal and hex constants
A binary, octal or hex constant is permitted as a principal argument in a call of the intrinsic function
INT, REAL, CMPLX, or DBLE (not for an optional argument that specifies the kind).
Table 1 Example 1 Binary, Octal and Hex constants
INT(O’345’),REAL(Z’1234ABCD’)
Complex constants
Complex constant is used to specify the real or imaginary part of a complex constant.
Table 2 Example 2 Complex Constants
REAL,parameter :: pi = 3.14
COMPLEX,c :: = (0.0, pi)
Lengths of names and statements
The length of names has been increased to 63 characters and statements can now extend up to
256 lines.
Changes to Fortran intrinsic functions
To allow for the speed of modern processors, the argument COUNT_RATE of the
subroutineSYSTEM_CLOCK is permitted to be of type REAL as well as INTEGER. The intrinsics
MAX, MAXLOC, MAXVAL, MIN, MINLOC, and MINVAL have been extended to apply to type
CHARACTER as well as REALand INTEGER.
6 Fortran 3.5 Release Notes