diff --git a/.github/actions/spelling/allow.txt b/.github/actions/spelling/allow.txt
index d0ad3161a3..f7ec8ee176 100644
--- a/.github/actions/spelling/allow.txt
+++ b/.github/actions/spelling/allow.txt
@@ -2132,3 +2132,4 @@ OSCIPANE
 TWOBARS
 lang
 archnorma
+orthtol
diff --git a/fortran/bobyqa/trustregion.f90 b/fortran/bobyqa/trustregion.f90
index 0d5c9b44dc..09828207dc 100644
--- a/fortran/bobyqa/trustregion.f90
+++ b/fortran/bobyqa/trustregion.f90
@@ -8,7 +8,7 @@ module trustregion_bobyqa_mod
 !
 ! Started: February 2022
 !
-! Last Modified: Friday, November 03, 2023 PM02:58:59
+! Last Modified: Friday, November 03, 2023 PM03:07:50
 !--------------------------------------------------------------------------------------------------!
 
 implicit none
@@ -124,7 +124,6 @@ subroutine trsbox(delta, gopt_in, hq_in, pq_in, sl, su, tol, xopt, xpt, crvmin,
 real(RP) :: dred(size(gopt_in))
 real(RP) :: gnew(size(gopt_in))
 real(RP) :: gopt(size(gopt_in))
-real(RP) :: gred(size(gopt_in))
 real(RP) :: hdred(size(gopt_in))
 real(RP) :: hs(size(gopt_in))
 real(RP) :: modscal