Open Watcom FORTRAN 77 Language Reference

Appendices
10. The DOUBLE COMPLEX statement is supported (equivalent to COMPLEX*16).
11. Double precision complex constants are allowed.
Z = (1D0, 2D0)
12. Mixing operands of type DOUBLE PRECISION and COMPLEX to yield a COMPLEX*16 result
is allowed.
DOUBLE PRECISION X
COMPLEX Y, Z*16
Z = X + Y
13. User-defined structures are supported.
STRUCTURE/END STRUCTURE
UNION/END UNION
MAP/END MAP
RECORD
14. Both character and non-character data are allowed in the same common block.
INTEGER X
CHARACTER C
COMMON /BLK/ X, C
15. Data initialization of variables in common without a block data subprogram is allowed.
16. Equivalencing character to non-character data is permitted.
INTEGER X
CHARACTER C
EQUIVALENCE (X, C)
17. Single subscripts for multi-dimensional arrays is permitted in EQUIVALENCE statements.
18. Data initialization in a type specification statement is allowed.
DOUBLE PRECISION X/4.3D1/
19. Data initialization with hexadecimal constants is allowed.
INTEGER I/Z00000007/
20. Initializing character items with numeric data is permitted.
21. Hexadecimal and octal constants of the form ’abc’x and ’567’o are supported.
22. A character constant of the form ’abcdef’c places a NUL character (CHAR(0)) at the end of
the character string.
23. Hollerith constants can be used interchangeably with character constants.
CHARACTER*10 A, B
A = ’1234567890’
B = 10H123456790
286 Open Watcom FORTRAN 77 Extensions to Standard FORTRAN 77