9.167 LOC — Возвращает адрес переменной

Описание:

LOC(X) возвращает адрес X в виде целого числа.

Стандарт:

Расширение GNU

Класс:

Функция запроса

Синтаксис:

RESULT = LOC(X)

Аргументы:

X	Переменная любого типа.

Возвращаемое значение:

Возвращаемое значение имеет тип INTEGER, с размером, соответствующим размеру (в байтах) адреса памяти на целевой машине.

Пример:

program test_loc
  integer :: i
  real :: r
  i = loc(r)
  print *, i
end program test_loc