From 1bdb6ea462e14eed11bb1d1c4330d7f297ffa2df Mon Sep 17 00:00:00 2001 From: zaikunzhang Date: Sun, 4 Feb 2024 19:48:35 +0800 Subject: [PATCH] 240204.194835.HKT get back the accidentally removed comments in lincoa_c.f90 and uobyqa_c.f90 --- c/lincoa_c.f90 | 1 + c/uobyqa_c.f90 | 4 ++++ 2 files changed, 5 insertions(+) diff --git a/c/lincoa_c.f90 b/c/lincoa_c.f90 index cb00ad8432..35bba5beed 100644 --- a/c/lincoa_c.f90 +++ b/c/lincoa_c.f90 @@ -57,6 +57,7 @@ subroutine lincoa_c(cobj_ptr, data_ptr, n, x, f, cstrv, m_ineq, Aineq, bineq, m_ ! The initialization below to null is necessary to avoid a bug with the newer Intel compiler ifx. ! See details here: https://fortran-lang.discourse.group/t/strange-issue-with-ifx-compiler-and-assume-recursion/7013 ! The bug was observed in all versions of ifx up to 2024.0.1. Once this bug is fixed we should remove the +! initialization to null because it implies the 'save' attribute, which is undesirable. procedure(CCALLBACK), pointer :: cb_ptr => null() procedure(COBJ), pointer :: obj_ptr => null() real(C_DOUBLE), pointer :: xl_loc_interm(:) diff --git a/c/uobyqa_c.f90 b/c/uobyqa_c.f90 index 95252bcbdd..4727248c27 100644 --- a/c/uobyqa_c.f90 +++ b/c/uobyqa_c.f90 @@ -40,6 +40,10 @@ subroutine uobyqa_c(cobj_ptr, data_ptr, n, x, f, nf, rhobeg, rhoend, ftarget, ma integer(IK) :: iprint_loc integer(IK) :: nf_loc integer(IK), allocatable :: maxfun_loc +! The initialization below to null is necessary to avoid a bug with the newer Intel compiler ifx. +! See details here: https://fortran-lang.discourse.group/t/strange-issue-with-ifx-compiler-and-assume-recursion/7013 +! The bug was observed in all versions of ifx up to 2024.0.1. Once this bug is fixed we should remove the +! initialization to null because it implies the 'save' attribute, which is undesirable. procedure(CCALLBACK), pointer :: cb_ptr => null() procedure(COBJ), pointer :: obj_ptr => null() real(RP) :: f_loc