The END TYPE statement indicates the completion of a derived-type definition.
If type_name is specified, it must match the type_name in the corresponding Derived Type statement.
If a label is specified on the END TYPE statement, the label belongs to the scoping unit of the derived-type definition.
TYPE A INTEGER :: B REAL :: C END TYPE A