The first statement
of a derived type definition.
Syntax
TYPE [[, access-spec ] ::] derived-type-name |
- access-spec
is the keyword PUBLIC or PRIVATE.
- derived-type-name
is a legal Fortran 90 name.
Description
The TYPE statement introduces the definition of a derived
type. A derived type name may be any legal Fortran 90 name, as long
as it is not the same as an intrinsic type name or another local
name (except component names and actual argument keyword names)
in that scoping unit.
A derived type
may contain an access specification (PUBLIC or PRIVATE attribute) or an internal PRIVATE statement only if it is in a module.
Examples
! This is a simple example of a derived type
! with two components, high and low.
TYPE temp_range
INTEGER high, low
END TYPE temp_range
! This type uses the previous definition for one of its
! components
TYPE temp_record
CHARACTER(LEN=40) city
TYPE (temp_range) extremes(1950:2050)
END TYPE temp_record
! This type has a pointer component to provide links to other
! objects of the same type, thus providing linked lists.
TYPE linked_list
REAL value
TYPE(linked_list),POINTER :: next
END TYPE linked_list
! This is a public type whose components are private; defined
! operations provide all functionality.
TYPE, PUBLIC :: set; PRIVATE
INTEGER cardinality
INTEGER element ( max_set_size )
END TYPE set
! Declare scalar and array of type set.
TYPE (set) :: baker, fox(1:size(hh)) |
Related statements
INTERFACE, PRIVATE, PUBLIC, SEQUENCE, and TYPE (declaration)
Related concepts
For information about derived types, see “Derived
types”.
Printable version
