diff --git a/unit_test_stubs/util/shr_abort_mod.abortthrows.F90 b/unit_test_stubs/util/shr_abort_mod.abortthrows.F90 index 38d66449..b5e29355 100644 --- a/unit_test_stubs/util/shr_abort_mod.abortthrows.F90 +++ b/unit_test_stubs/util/shr_abort_mod.abortthrows.F90 @@ -15,7 +15,7 @@ module shr_abort_mod contains - subroutine shr_abort_abort(string,rc) + subroutine shr_abort_abort(string,rc, line, file) ! Replacement for shr_abort_abort that throws a pfunit exception rather than aborting ! ! This can be used to test expected errors (i.e., failure testing). @@ -43,6 +43,8 @@ subroutine shr_abort_abort(string,rc) !----- arguments ----- character(len=*) , intent(in), optional :: string ! error message string integer(shr_kind_in), intent(in), optional :: rc ! error code + integer(shr_kind_in), intent(in), optional :: line ! Line number in file (not used) + character(len=*), intent(in), optional :: file ! Fielename (not used) !----- locals ----- integer(shr_kind_in) :: my_rc