Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
27429 Discussions

Bug in `ifort` and `ifx` from oneAPI 2021.2.0 & 2022.0.1: false positive of unused variable

Zaikun
New Contributor I
413 Views

This seems to be a bug in Intel oneAPI 2021.2.0 & 2022.0.1. See Fortran Discourse for discussions. Thank you for fixing it. 

 

For the following piece of code, on Ubuntu 20.04 (linux 5.4.0-91-generic), both `ifort` and `ifx` from Intel oneAPI 2021.2.0 or 2022.0.1 give me a warning as follows.

 

 

$ ifort -warn all test_intel.f90
test_intel.f90(16): remark #7712: This variable has not been used. [X]
function foo(fun, n) result(x)
----------------------------^
$ ifx -warn all test_intel.f90
test_intel.f90(16): remark #7712: This variable has not been used. [X]
function foo(fun, n) result(x)
----------------------------^

 

 

Code:

 

 

! test_intel.f90
module test_intel_mod
implicit none
private
public :: foo, bar, fun

abstract interface
function FCN(x) result(f)
implicit none
real, intent(in) :: x
real :: f
end function FCN
end interface

contains

function foo(fun, n) result(x)
implicit none
procedure(FCN) :: fun
integer, intent(in) :: n
real :: x
real :: fval(n)
fval = 0.0
x = fun(0.0) + sum(fval) + real(n)
end function foo

function bar(fun, n) result(x)
implicit none
procedure(FCN) :: fun
integer, intent(in) :: n
real :: x
x = fun(0.0) + real(n)
end function bar

function fun(x) result(f)
implicit none
real, intent(in) :: x
real :: f
f = x
end function fun

end module test_intel_mod

program test_circle
use, non_intrinsic :: test_intel_mod, only : foo, fun
implicit none
real :: x
x = foo(fun, 1)
print *, x
end program test_circle

 

 

 

0 Kudos
3 Replies
Zaikun
New Contributor I
368 Views

Hello @Barbara_P_Intel ! Sorry to bother you, but this is probably a bug of Intel oneAPI. Thanks.

Barbara_P_Intel
Moderator
341 Views

Thanks for the nice reproducer. I filed a bug report, CMPLRIL0-34529, on your behalf. I'll let you know when there's a fix.



Zaikun
New Contributor I
320 Views

Thank you very much! I look forward to any updates. 

Reply