1

我正在开发一个项目，该项目需要在 Fortran 中存储派生类型的属性的内存地址。在 gfortran 中找到的是，如果返回是派生类型，则函数返回的隐式副本。所以我存储的地址是没有意义的。有一段代码：

module atest
!  use iso_c_binding
  type test
    real(8):: a
    real(8):: p
  end type test
  interface
    subroutine pointerprint(a)
      real(8), intent(in) :: a
    end subroutine pointerprint
  end interface
  interface assignment(=)
    module procedure overloadedAsgn
  end interface
contains
  function returnvalue(t)
    type(test), intent(in)::t
    type(test):: returnvalue
    returnvalue%a=t%a+1
    call pointerprint(returnvalue%a)
  end function returnvalue
  SUBROUTINE overloadedAsgn(ret,rhs)
    type(test), intent(inout) :: ret
    type(test), intent(in) :: rhs
    print *, "assign_d"
    ret%a=rhs%a
    ret%p=rhs%p+1.0d0
    call pointerprint(rhs%a)
  end SUBROUTINE overloadedAsgn  

end module

program xxx
  use atest
  type(test):: t
  type(test):: b
  t%a=1.0d0/11.0d0
  t%p=0.0d0
  b=returnvalue(t)
end program 


#include<stdio.h>
void pointerprint_(double *x){
  printf("Addr<%lx>\n",(unsigned long)x);
}

使用 gfortran 的输出是：

Addr<7fff51df24e0>
 assign_d
Addr<7fff51df2520>

使用 ifort 的输出是：

Addr<7fffc92e6fc0>
 assign_d
Addr<7fffc92e6fc0>

有没有办法在 gfortran 中避免这样的复制，所以结果是一致的？我刚开始学习fortran。可能有函数的描述符或编译器的选项。

4

1 回答 1

1

您指望处理器相关的行为。如果它是有利可图的，处理器可以通过复制输入（和/或输出）。您可以使用指针虚拟参数来传递指针。

您的代码中没有任何TARGET内容，但仍想依赖指向变量的指针。

于 2013-09-23T23:01:48.267 回答