Add missing implicit-none to prif_error_stop interface

BerkeleyLab · May 2, 2024 · 55c9f55 · 55c9f55
1 parent a39097d
commit 55c9f55
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/prif.f90 b/src/prif.f90
@@ -114,6 +114,7 @@ module subroutine prif_stop(quiet, stop_code_int, stop_code_char)
     end subroutine
 
     module pure subroutine prif_error_stop(quiet, stop_code_int, stop_code_char)
+      implicit none
       logical(c_bool), intent(in) :: quiet
       integer(c_int), intent(in), optional :: stop_code_int
       character(len=*), intent(in), optional :: stop_code_char