diff --git a/src/nf/nf_activation.f90 b/src/nf/nf_activation.f90
index 6509a7da..a0ed43ef 100644
--- a/src/nf/nf_activation.f90
+++ b/src/nf/nf_activation.f90
@@ -733,7 +733,7 @@ pure function eval_3d_celu_prime(self, x) result(res)
   end function eval_3d_celu_prime
 
   ! Utility Functions
-  pure function get_activation_by_name(activation_name) result(res)
+  function get_activation_by_name(activation_name) result(res)
     character(len=*), intent(in) :: activation_name
     class(activation_function), allocatable :: res
 
diff --git a/src/nf/nf_optimizers.f90 b/src/nf/nf_optimizers.f90
index 269308b2..89a8a6eb 100644
--- a/src/nf/nf_optimizers.f90
+++ b/src/nf/nf_optimizers.f90
@@ -316,7 +316,7 @@ end subroutine minimize_adagrad
 
   ! Utility Functions
   !! Returns the default optimizer corresponding to the provided name
-  pure function get_optimizer_by_name(optimizer_name) result(res)
+  function get_optimizer_by_name(optimizer_name) result(res)
     character(len=*), intent(in) :: optimizer_name
     class(optimizer_base_type), allocatable :: res