时间戳

首页 > 解决方案 > Fortran 中的 PGI 编译错误：“前向引用函数”

fortran - Fortran 中的 PGI 编译错误：“前向引用函数”

问题描述

我对 PGI Fortran 编译器有点疑惑。

当我尝试test.f90使用 pgfortran 19.10 编译存储在名为 的文件中的以下简单模块时，出现我不理解的错误。使用 gfortran 或 ifort 编译时运行良好。

文件test.f90：

MODULE CT
    IMPLICIT NONE
    integer, parameter :: si   = SELECTED_INT_KIND(4)
    integer(kind=si), public, parameter :: strlen   = 256


    type, public :: CMT
       integer (kind=si) :: nbTot 
       character(len=strlen), dimension(:), allocatable  :: condi 
    CONTAINS
       procedure :: find_line_condi 
    endtype CMT


 CONTAINS
    PURE function find_line_condi( table, cara ) result(k)
       IMPLICIT NONE
       class(CMT), intent(in)    :: table
       character(len=*), intent(in)  :: cara
       integer  (kind=si)   :: k
       integer  (kind=si)   :: j

       k=-1
       do j=1,table%nbTot
          if (trim(table%condi(j)) .eq. cara)  then
             k=j
             RETURN
          else if ( j == table%nbTot ) then
             k=-1
             RETURN
          endif
       enddo
    end function find_line_condi

END MODULE CT

编译pgfortran -c test.f90返回我以下错误消息：

/opt/pgi/linux86-64-llvm/19.10/share/llvm/bin/llc: error: /opt/pgi/linux86-64-llvm/19.10/share/llvm/bin/llc: /tmp/pgfortranr2qeZBujkwvA.ll:23:77: error: invalid forward reference to function 'ct_find_line_condi_' with wrong type: expected 'i32 (i64*, i64*, i64*, i64)*' but was 'i16 (i64*, i64*, i64*, i64)*'
@ct$cmt$td$vft = global [1 x i8*] [i8* bitcast(i16 (i64*, i64*, i64*, i64)* @ct_find_line_condi_ to i8*)]

有谁知道这个问题来自哪里？

标签： fortranpgi

解决方案

这是编译器中的一个错误。考虑模块

MODULE CT
    IMPLICIT NONE

    type CMT
    CONTAINS
      procedure, nopass :: find_line_condi 
    endtype CMT

 CONTAINS
    function find_line_condi()
       integer(SELECTED_INT_KIND(4)) find_line_condi
       find_line_condi=0
    end function find_line_condi

END MODULE CT

这比那个问题要简单得多。使用 pgfortran 19.10 编译时会出现类似的乱码输出。这个更简单的代码是否有效 Fortran 应该被接受，但我认为糟糕的诊断是 PGI 更愿意避免的，这留给读者/PGI 支持台作为练习。

然而，这似乎是 PGI 的 LLVM 前端的一个弱点：考虑使用pgfortran -c -Mnollvm .... 还有一些方法可以重写代码以尝试解决此错误，例如更改函数结果的类型。

更广泛地说，2019 年引入的PGI发布了 LLVM 代码生成器。这似乎正在经历一些初期的困难。如果您的代码在 PGI 2019 中意外失败（可能与 2018 年一起使用），那么-Mnollvm使用非 LLVM 生成器进行编译是值得一试的。

推荐阅读