Tipos derivados en Fortran

Un registro de kayak construido con type y leído con el signo de porcentaje.

program derived_types
    implicit none
    ! A derived type bundles fields; % reaches into them.
    type :: kayak
        character(len=10) :: model
        integer :: length_ft
        logical :: rudder
    end type kayak

    type(kayak) :: stock, custom

    stock = kayak("Petrel", 17, .false.)
    custom = kayak(model="Auk", length_ft=14, rudder=.true.)

    print *, "stock:  ", stock%model, stock%length_ft, " ft"
    print *, "custom: ", custom%model, " rudder? ", custom%rudder
end program derived_types

Cómo funciona

1. type :: kayak ... end type empaqueta un nombre, un largo y una bandera de timón.
2. kayak("Petrel", 17, .false.) construye por posición; las palabras clave también valen.
3. stock%model entra a un campo — % es el punto de Fortran.

Palabras clave y builtins usados aquí

• character
• end
• implicit
• integer
• len
• logical
• none
• print
• program
• type

El intento, en números

Líneas

17

Caracteres a escribir

455

Tokens

94

Ritmo de tres estrellas

65 tpm

Al ritmo de tres estrellas de 65 tokens por minuto, este intento toma unos 87 segundos.

Escribe este fragmento

Paso 1 de 3 en Tipos y memoria; paso 19 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →