关于数组指针变量的问题

cloudyxpf · 发表于 2016-3-23 18:36:51

这个问题的来源是来自于彭国伦《fotran95程序设计》中第十章的EX1009.F90。
这部分主要的知识点是想要说明对自定义类型的交换，指针交换比变量交换更加节省空间。
但是在程序交换的过程中我发现了如下问题。

[Fortran] 纯文本查看 复制代码

type(person),pointer::p(:)
type(person),target::pp(5)=(/此处赋值省略/)
p=>pp

在子程序中有这么一段交换

[Fortran] 纯文本查看 复制代码

type pperson
   type(person),pointer::p
end type

if(p(i)%p%height<p(j)%p%height) then
    temp=p(i)
    p(i)=p(j)
    p(j)=temp
end if

但是为了简化，我尝试着不设置pperson这一自定义变量，于是就有开始的声明，因此我的交换语句就变成如下：

[Fortran] 纯文本查看 复制代码

if(p(i)%height<p(j)%height) then
    temp=>p(i)
    p(i)=>p(j)
    p(j)=>temp
end if

之后就报错：access violation
经过调试，错误首先发现在 p(i)=>p(j) 这一语句中，也就说明指针数组中的指针不可以进行二次指向。
请问这是什么原因？

fcode · 发表于 2016-3-24 08:58:21

Fortran 没有指针数组，只有指向数组的指针。

[指针] 关于数组指针变量的问题