Structure Constructors

Intel® Fortran Compiler Classic and Intel® Fortran Compiler Developer Guide and Reference

Download PDF

ID 767251

Date 11/07/2023

Version

Public

A newer version of this document is available. Customers should click here to go to the newest version.

Visible to Intel only — GUID: GUID-6521CC96-2A0E-4CE0-8036-3238F7476C34

View Details

Structure Constructors

A structure constructor lets you specify scalar values of a derived type. It takes the following form:

d-name (comp-spec)

`d-name`	Is the name of the derived type. It cannot be an abstract type.
`comp-spec`	Is a component specification. Only one `comp-spec` can be specified for a component. However, you can specify more than one `comp-spec` in a constructor. A component specification takes the following form: [`keyword`=] `comp-data-source`
`keyword`	Is the name of a component of the derived type `d-name`.
`comp-data-source`	Is one of the following: `expr` `data-target` `proc-target`
`expr`	Is an expression specifying component values. The values must agree in number and order with the components of the derived type. If necessary, values are converted (according to the rules of assignment), to agree with their corresponding components in type and kind parameters.
`data-target`	Is a data pointer component. It must have the same rank as its corresponding component.
`proc-target`	Is a procedure pointer component.

Description

A structure constructor must not appear before its derived type is defined.

If keyword= appears, any expr is assigned to the component named by the keyword. If keyword= is omitted, each comp-data-source is assigned to the corresponding component in component order. The keyword= can be omitted from a comp-spec only if the keyword= has been omitted from each preceding comp-spec in the constructor, if any.

If a component of the derived type is an array, the shape in the expression list must conform to the shape of the component array.

If a component of the derived type is a pointer, the value in the expression list must evaluate to an object that would be a valid target in a pointer assignment statement. (A constant is not a valid target in a pointer assignment statement.)

If all the values in a structure constructor are constant expressions, the constructor is a derived-type constant expression.

The type name and all components of the type for which a comp-spec appears must be accessible in the scoping unit containing the structure constructor.

For a pointer component, the corresponding comp-data-source must be an allowable data-target or proc-target for such a pointer in a pointer assignment statement. If the comp-data-source is a pointer, the association of the component is that of the pointer; otherwise, the component is pointer-associated with the comp-data-source.

If a component with default initialization has no corresponding comp-data-source, then the default initialization is applied to that component.

If a component of a derived type is allocatable, the corresponding constructor expression must either be a reference to the intrinsic function NULL with no arguments or an allocatable entity of the same rank, or it must evaluate to an entity of the same rank.

If the expression is a reference to the intrinsic function NULL, the corresponding component of the constructor has a status of unallocated.

If the expression is an allocatable entity, the corresponding component of the constructor has the same allocation status as that allocatable entity. If the entity is allocated, the constructor component has the same dynamic type, bounds, and value. If a length parameter of the component is deferred, its value is the same as the corresponding parameter of the expression.

If the component is allocatable and the expression is not an allocatable entity, the component has an allocation status of allocated, and the same bounds as the expression. If the component has a deferred length parameter, its value is the same as the corresponding length parameter of the expression. If the component is polymorphic, it has the same dynamic type and value. Otherwise, the value is converted, if necessary, to the declared type of the component.

Examples

Consider the following derived-type definition:

  TYPE EMPLOYEE
    INTEGER ID
    CHARACTER(LEN=40) NAME
  END TYPE EMPLOYEE

This can be used to produce the following structure constructor:

  EMPLOYEE(3472, "John Doe")

The following example shows a type with a component of derived type:

  TYPE ITEM
    REAL COST
    CHARACTER(LEN=30) SUPPLIER
    CHARACTER(LEN=20) ITEM_NAME
  END TYPE ITEM

  TYPE PRODUCE
    REAL MARKUP
    TYPE(ITEM) FRUIT
  END TYPE PRODUCE

In this case, you must use an embedded structure constructor to specify the values of that component; for example:

  PRODUCE(.70, ITEM (.25, "Daniels", "apple"))

Parent topic: Derived Data Types

Select Your Language

Using Intel.com Search

Quick Links

Recent Searches

Advanced Search

Only search in

Intel® Fortran Compiler Classic and Intel® Fortran Compiler Developer Guide and Reference

Structure Constructors

Description

Examples

See Also