Fortran Coder

查看: 7593|回复: 4
打印 上一主题 下一主题

[指针] 指向派生类型的指针大小问题

[复制链接]

43

帖子

13

主题

0

精华

专家

F 币
429 元
贡献
155 点
跳转到指定楼层
楼主
发表于 2020-4-27 12:51:20 | 只看该作者 |只看大图 回帖奖励 |正序浏览 |阅读模式
本帖最后由 愤怒的三炮 于 2020-4-27 17:21 编辑

【编译器 gfortran】
【版本 gcc version 8.1.0】
刚学Fortran的指针,想看看声明出来的指针大小:
[Fortran] 纯文本查看 复制代码
program test_pointer_size
    implicit none
    integer,dimension(:,:),pointer::p=>null()
    integer,dimension(100,100),target::var
    
    print*,'the size of disassociated pointer is:'
    print*,sizeof(p)
    var(:,:) = 0
   
end

此时指针所占大小为4字节;

但是当我准备将它指向type类型时:
[Fortran] 纯文本查看 复制代码
 program test_pointer_size
    implicit none
    type bigdata
        integer,dimension(100,100)::A
    end type

    type(bigdata),pointer:: p => null()
    type(bigdata),target:: var
    
    print*,'the size of pointer without association is:'
    print*,sizeof(p)
    
    var%A(:,:) = 0
    
end

显示指针所占大小为40000字节,也就是type所占的大小。
为什么会不同呢?
请清楚的朋友指点一下,刚看Fortran的指针,不太会,先谢谢了!
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

43

帖子

13

主题

0

精华

专家

F 币
429 元
贡献
155 点
5#
 楼主| 发表于 2020-4-27 17:04:31 | 只看该作者
kyra 发表于 2020-4-27 17:01
Fortran的指针不能用 sizeof() 函数查看其本身的大小。

注意:fortran中,指针 a,只能访问它指向的内容, ...

谢谢您,豁然开朗,学习了学习了!

259

帖子

0

主题

0

精华

版主

World Analyser

F 币
717 元
贡献
510 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
地板
发表于 2020-4-27 17:01:01 | 只看该作者
Fortran的指针不能用 sizeof() 函数查看其本身的大小。

注意:fortran中,指针 a,只能访问它指向的内容,而不能访问指针本身
也就是说,a 就是 C语言中的 *a

如果你真的要知道指针的大小,可以这样做:
[Fortran] 纯文本查看 复制代码
type ss
  type(bigdata),pointer:: p
end type ss
type(ss) :: pss
print*,sizeof(pss)


你会发现,指向任何数据类型的指针,本身都是4字节(或64位系统的8字节)
而指向数组的指针,就比较大,通常一维数组会在30字节,二维数组更大一些(不同编译器结果不同)

这是因为,Fortran的指向数组的指针,除了C指针拥有的数组内容的首地址之外,还拥有这个数组的维度,大小,上下限等信息。

43

帖子

13

主题

0

精华

专家

F 币
429 元
贡献
155 点
板凳
 楼主| 发表于 2020-4-27 17:00:48 | 只看该作者
li913 发表于 2020-4-27 16:03
第一个,integer类型的指针,该类型4字节; 第二个,bigdata类型的指针,该类型40000字节。另外,第一个代 ...

感谢您的回复!
指针不是只有几个字节大小么?请看下面的C代码:
[Fortran] 纯文本查看 复制代码
#include <stdio.h>
#include <stdlib.h>
int main() {
	
	int* p = NULL;

	p = (int*)malloc(10*sizeof(int));
	
	printf("%d\n", sizeof(p));

	free(p);
	return 0;
}

是因为Fortran里面的指针有什么特别的地方么?

834

帖子

2

主题

0

精华

大宗师

F 币
3922 元
贡献
2332 点
沙发
发表于 2020-4-27 16:03:21 | 只看该作者
本帖最后由 li913 于 2020-4-27 16:06 编辑

第一个,integer类型的指针,该类型4字节; 第二个,bigdata类型的指针,该类型40000字节。另外,第一个代码,指针未明确指向的数组是多大,ivf输出为0, gfortran为4.

1.png (16.3 KB, 下载次数: 225)

1.png
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-1 07:31

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表