 |
» |
|
|
|
Declares entities of type logical. SyntaxLOGICAL [kind-spec] [[, attrib-list] ::] entity-list |
|
- kind-spec
specifies the size of the logical entity in bytes.
kind-spec takes the form: ([KIND=] kind-param) where kind-param can be a named
constant or a constant expression that has the integer value of
1, 2, 4, or 8. The size of the default type is 4. As an extension, kind-spec can
take the form: *len-param where len-param is the integer
1, 2, 4, or 8 (default = 4). - attrib-list
is a list of one or more of the following attributes,
separated by commas: If attrib-list is present, it must
be followed by the double colon. For information about individual
attributes, see the corresponding statement in this chapter. - entity-list
is a list of entities, separated by commas. Each
entity takes the form: name [(array-spec)] [= initialization-expr] where: name is the name of a variable or function array-spec is a comma-separated list of dimension bounds initialization-expr is a logical constant expression. If initialization-expr
is present, entity-list must be preceded
by the double colon.
DescriptionThe LOGICAL
statement is constrained by the rules for type declaration statements,
including the requirement that it precede all executable statements. As a portability extension, HP Fortran 90 allows the following
syntax for specifying the length of an entity: name [*len] [( array-spec )] [= initialization-expr] |
If (array-spec)
is specified, *len
may appear on either side of (array-spec).
If name appears with *len,
it overrides the length specified by LOGICAL*size. ExamplesThe following are valid declarations: LOGICAL log1, log2
LOGICAL(KIND=2) :: log3
LOGICAL(2), PARAMETER :: test=.TRUE.
! initialize an array, using an array constructor
LOGICAL, DIMENSION(2) :: lvec=(/.TRUE.,.FALSE./)
! use the slash notation (an HP extension) to initialize
LOGICAL log1/.TRUE./, log2/.FALSE./ ! note, no double colon
! the following declarations are equivalent; the second uses the
! HP length specification extension
LOGICAL (KIND = 8) log8
LOGICAL*4 log8*8 |
Related statementsINTEGER Related conceptsFor related information, see the following: |
Printable version
