fortran - 变量定义上下文编译错误中的非变量表达式

Question

我在使用 gfortran 5.4 和 .f90 代码时遇到此编译错误

call abc_output(struc,nx,ny,nz,'AB'   ,get_ab_dat(p_f),&
                                                1
Error: Non-variable expression in variable definition context (actual argument to INTENT = OUT/INOUT) at (1)

产生编译错误的方法调用如下所示并且错误在 get_ab_dat 上

type(b_f)                :: p_f
call abc_output(struc,nx,ny,nz,'AB'   ,get_ab_dat(p_f),&
                               'BD'   ,get_bc_dat(p_f),&
                               'EF' ,  aaa )

函数get_ab_dat如下所示

function get_ab_dat(bf) result(qx_arr)
  type(b_f),intent(in) :: bf
  real,dimension(:,:,:),allocatable :: qx_arr
  qx_arr = bf%qx
end function get_ab_dat


subroutine abc_output (struc,nx,ny,nz,dname1,data1,&
       dname2,data2,dname3,data3,dname4,data4)

type(c_s),intent(in)                 :: struc
integer,intent(in)                           :: nx,ny,nz     
character(len=*),intent(in)                  :: dname1
real,dimension(:,:,:),allocatable,intent(inout)          :: data1
character(len=*),intent(in),optional         :: dname2,dname3,dname4    
real,dimension(:,:,:),allocatable,intent(inout),optional ::                 data2,data3,data4

谁能解释一下这个错误的含义以及我该如何修复它？

Answer 1

您不能将表达式或常量发布到 intent(OUT) 或 intent(INOUT) 参数。您必须始终传递一个变量，因为它可以在您调用的过程中更改。

因为 abc_output 的第六个参数是 intent(OUT) 或(更有可能)intent(INOUT) 你首先必须赋值get_ab_dat(p_f) 的值到一个变量，你必须将变量传递给 abc_output。小心参数别名。

在这种特殊情况下，参数也是可分配的，因此变量也必须是可分配的。