fix: New access point to 'loss % derivative'

Previously `quadratic_derivative`.

Author: castelao

src/nf/nf_network_submodule.f90

@@ -336,7 +336,7 @@ pure module subroutine backward(self, output, loss)
           type is(rnn_layer)
             call self % layers(n) % backward( &
               self % layers(n - 1), &
-              quadratic_derivative(output, this_layer % output) &
+              self % loss % derivative(output, this_layer % output) &
             )
         end select
       else