6.1.2 Производные типы и struct
Для совместимости производных типов с struct, используйте атрибут BIND(C) в объявлении типа. Например, следующее объявление типа
USE ISO_C_BINDING TYPE, BIND(C) :: myType INTEGER(C_INT) :: i1, i2 INTEGER(C_SIGNED_CHAR) :: i3 REAL(C_DOUBLE) :: d1 COMPLEX(C_FLOAT_COMPLEX) :: c1 CHARACTER(KIND=C_CHAR) :: str(5) END TYPE
соответствует следующему объявлению в C
struct {
int i1, i2;
/* Note: "char" might be signed or unsigned. */
signed char i3;
double d1;
float _Complex c1;
char str[5];
} myType;
Производные типы с атрибутом привязки к C не должны иметь атрибут sequence, параметры типа, атрибут extends, ни процедур, связанных с типом. Каждый компонент должен быть типа и вида, совместимого с другими, и не должен иметь атрибут pointer или атрибут allocatable. Имена компонентов не влияют на совместимость.
Поскольку прямых эквивалентов в Fortran нет, объединения и структуры с членами со битами или массивами переменной длины не совместимы.
© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/Derived-Types-and-struct.html