integer,allocatable:: a(:,:)
integer:: b(10,20), c(5,15)
b=0
c=0
a=b
print*, 'shape(a)=',shape(a) !此时a和b形状相同
print*, 'loc(a)=',loc(a)
a=c !现在a的形状又变成了c,但是没有进行deallocate
print*, 'shape(a)=',shape(a)
print*, 'loc(a)=',loc(a)
end
QQ截图20210519175624.png (100.97 KB, 下载次数: 293)
li913 发表于 2021-5-19 17:57
不会,自动释放旧的。如果内存泄露,第二次会是24G。但实际只有20G。
necrohan 发表于 2021-5-20 08:01
不分配内存直接指向已有的数组,这种用法真没见过,我都是规规矩矩的用。 ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |