5.1.20 Функции списка аргументов %VAL, %REF и %LOC

GNU Fortran поддерживает функции списка аргументов %VAL, %REF и %LOC для обеспечения обратной совместимости с g77. Рекомендуется использовать их только в коде, который обращается к функциям за пределами GNU Fortran, таким как функции операционной системы или графического интерфейса. Лучше всего ограничить подобное использование изолированными частями программы, которые конкретно и исключительно взаимодействуют с низкоуровневыми, зависящими от системы функциями. Такие части могут предоставлять портативный интерфейс для использования всей программой, но сами не являются портативными и должны тщательно тестироваться каждый раз при перекомпиляции с использованием нового компилятора или версии компилятора.

%VAL передаёт скалярный аргумент по значению, %REF передаёт его по ссылке, а %LOC передаёт его местоположение в памяти. Поскольку gfortran уже передаёт скалярные аргументы по ссылке, %REF фактически является операцией без действия. %LOC имеет тот же эффект, что и указатель в Fortran.

Пример передачи аргумента по значению в подпрограмму C foo.:

C
C prototype      void foo_ (float x);
C
      external foo
      real*4 x
      x = 3.14159
      call foo (%VAL (x))
      end

Для получения подробностей обратитесь к руководству g77 https://gcc.gnu.org/onlinedocs/gcc-3.4.6/g77/index.html#Top.

Также, c_by_val.f и её аналог c_by_val.c из набора тестов GNU Fortran заслуживают внимания.