Fortran Coder

标题: 关于数组指针变量的问题 [打印本页]

作者: cloudyxpf 时间: 2016-3-23 18:36
标题: 关于数组指针变量的问题
这个问题的来源是来自于彭国伦《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
Fortran 没有指针数组，只有指向数组的指针。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)