Define set_state as pure

Co-authored-by: Jeremie Vandenplas <[email protected]>
modern-fortran · Jun 30, 2024 · 60c99b5 · 60c99b5
1 parent 1de7744
commit 60c99b5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/nf/nf_layer_submodule.f90 b/src/nf/nf_layer_submodule.f90
@@ -447,7 +447,7 @@ module subroutine set_params(self, params)
 
   end subroutine set_params
 
-  module subroutine set_state(self, state)
+  pure module subroutine set_state(self, state)
     class(layer), intent(inout) :: self
     real, intent(in), optional :: state(:)