diff --git a/src/fiats/neural_network_s.F90 b/src/fiats/neural_network_s.F90
index aa912aa7..5f577e0a 100644
--- a/src/fiats/neural_network_s.F90
+++ b/src/fiats/neural_network_s.F90
@@ -996,7 +996,6 @@ elemental module subroutine double_precision_assert_conformable_with(self, neura
             end block sum_cost
           
             if (adam) then
-              adam: &
               block
                 ! Adam parameters  
                 real, parameter :: beta(*) = [.9, .999]
@@ -1022,7 +1021,7 @@ elemental module subroutine double_precision_assert_conformable_with(self, neura
                     b(1:n(l),l) = b(1:n(l),l) - alpha*vdbc(1:n(l),l)/(sqrt(sdbc(1:n(l),l))+epsilon) ! Adjust weights
                   end do adam_adjust_weights_and_biases
                 end associate
-              end block adam
+              end block
             else
               associate(eta => learning_rate)
                 adjust_weights_and_biases: &