RosettaCodeData/Task/Address-of-a-variable/Fortran/address-of-a-variable.f

program test_loc
  implicit none

  integer :: i
  real    :: r

  i = loc(r)
  print *, i
end program