Open Watcom FORTRAN 77 Language Reference

Language Reference
2.78 STRUCTURE Statement
STRUCTURE /typename/
where:
typename
is the name for a new, compound variable, data type.
The STRUCTURE statement is used in conjunction with the END STRUCTURE declarative statement. The
STRUCTURE statement marks the start of a structure definition.
The STRUCTURE statement defines a new variable type, called a structure. It does not declare a specific
program variable. The RECORD statement is used to declare variables and arrays to be of this particular
structure type.
Structures may be composed of simple FORTRAN types or more complex structure types. This is shown
in the following example.
Example:
STRUCTURE /ADDRESS/
CHARACTER*20 STREET
CHARACTER*20 CITY
CHARACTER*20 STATE
CHARACTER*20 COUNTRY
CHARACTER*10 ZIP_CODE
END STRUCTURE
STRUCTURE /PEOPLE/
CHARACTER*20 NAME
RECORD /ADDRESS/ ADDR
INTEGER*2 AGE
END STRUCTURE
RECORD /PEOPLE/ CUSTOMER
Element names are local to the structure in which they appear. The same element name can appear in more
than one structure. Nested structures may have elements with the same name. A particular element is
specified by listing the sequence of elements required to reach the desired element, separated by percent
symbols (%) or periods (.).
Example:
CUSTOMER%NAME = ’John Doe’
CUSTOMER%ADDR%STREET = ’22 Main St.’
CUSTOMER%ADDR%CITY = ’Smallville’
CUSTOMER%ADDR%STATE = ’Texas’
CUSTOMER%ADDR%COUNTRY = ’U.S.A.’
CUSTOMER%ADDR%ZIP_CODE = ’78910-1203’
CUSTOMER%AGE = 23
For more information, see the chapter entitled "Structures, Unions and Records" on page 167.
140 STRUCTURE Statement