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
