Skip to content

Commit

Permalink
240204.194835.HKT get back the accidentally removed comments in linco…
Browse files Browse the repository at this point in the history
…a_c.f90 and uobyqa_c.f90
  • Loading branch information
zaikunzhang committed Feb 4, 2024
1 parent 8d30ef4 commit 1bdb6ea
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 0 deletions.
1 change: 1 addition & 0 deletions c/lincoa_c.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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(:)
Expand Down
4 changes: 4 additions & 0 deletions c/uobyqa_c.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 1bdb6ea

Please sign in to comment.