Function中的内存泄露

愤怒的三炮

下面一段测试代码中，Function可能会造成内存泄露。说是“可能造成”，是因为在一台8G内存的机器上使用Visual Studio发生了内存泄露，但另一台40G内存的机器上的VS就没有泄露，不知道具体是什么门道，请前辈给点意见。

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

program main

    integer:: a(1000,1000), b(1000,1000) !没有用allocatable，直接声明，不知道有何影响
  
    a = 1

    do i = 1, 5000
        b = func(a)
    end do
    
    contains
    
         function func(arg) result(output)
        
            integer,intent(in):: arg(:,:)
            integer,allocatable::output(:,:)
       
           allocate(output(SIZE(arg,dim=1),SIZE(arg,dim=2)))!此处内存泄露，output没有自动释放
            output = arg + 1
            
        end function
end program

如果我把主程序中的 a,b 数组声明为allocatable的，经测试，几台机器上都没有发生内存泄露，即

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

program main

    integer,dimension(:,:),allocatable:: a,b
    allocate(a(1000,1000), b(1000,1000))

  
    a = 1

    do i = 1, 5000
        b = func(a)
    end do
    
    contains
    
         function func(arg) result(output)
        
            integer,intent(in):: arg(:,:)
            integer,allocatable::output(:,:)
       
           allocate(output(SIZE(arg,dim=1),SIZE(arg,dim=2)))!此处无内存泄露，每次返回后output自动释放
            output = arg + 1
            
        end function
end program

无泄露机器上的编译器版本 Intel(R) Fortran Compiler for applications running on Intel(R) 64, Version 2024.0.0 Build 20231017
有泄露机器上的编译器版本 Intel(R) Fortran Compiler for applications running on Intel(R) 64, Version 2024.1.0 Build 20240308

li913

我debug模式测试了第一个代码，监控了内存使用量，从头到尾都是38M左右，没有内存泄露。编译器是 oneapi2021

愤怒的三炮

li913 发表于 2024-5-27 10:29
我debug模式测试了第一个代码，监控了内存使用量，从头到尾都是38M左右，没有内存泄露。编译器是 oneapi202 ...

是的，我的40G内存的那台机器也没有泄露，但是相同的代码，在另外一台机器上泄露了，稍后我放一张图上来。

愤怒的三炮

内存已经到1个多G了。

Intel(R) Fortran Compiler for applications running on Intel(R) 64, Version 2024.1.0 Build 20240308

li913

愤怒的三炮 发表于 2024-5-27 13:18
内存已经到1个多G了。

Intel(R) Fortran Compiler for applications running on Intel(R) 64, Version 2 ...

这里显示的是整台电脑的内存使用量，你需要打开任务管理器，查看这个程序的内存使用量。

愤怒的三炮

li913 发表于 2024-5-27 17:35
这里显示的是整台电脑的内存使用量，你需要打开任务管理器，查看这个程序的内存使用量。 ...

不是，Debug步进时内存从几十兆增长至几个G

li913

愤怒的三炮 发表于 2024-5-27 18:50
不是，Debug步进时内存从几十兆增长至几个G

可能是编译器版本不同，某些版本有bug

愤怒的三炮

li913 发表于 2024-5-28 14:52
可能是编译器版本不同，某些版本有bug

确实，这可能是Version 2024.1.0 Build 20240308版本编译器的bug。