6.1.3 Переменные глобального доступа
Переменные могут быть доступны из C, используя атрибут привязки C, необязательно вместе с указанием имени привязки. Эти переменные должны быть объявлены в части объявления MODULE, быть типа, совместимого с привязкой, и не иметь атрибутов pointer и allocatable.
MODULE m USE myType_module USE ISO_C_BINDING integer(C_INT), bind(C, name="_MyProject_flags") :: global_flag type(myType), bind(C) :: tp END MODULE
Здесь, _MyProject_flags - это чувствительное к регистру имя переменной, видимое из программ C, а global_flag - это нечувствительное к регистру имя, видимое из Fortran. Если имя привязки не указано, как для tp, имя привязки C совпадает с (строчным) именем привязки Fortran. Если имя привязки указано, после двойного двоеточия может быть только одна переменная. Обратите внимание: вы не можете использовать глобальную переменную для доступа к errno библиотеки C, так как стандарт C допускает ее использование как макрос. Используйте вместо этого встроенную функцию IERRNO (расширение GNU).
© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-14.2.0/gfortran/Interoperable-Global-Variables.html