Skip to content

Commit cd30ca7

Browse files
committed
remove assert subroutine from stdlib_experimental_error
1 parent 23e4ffc commit cd30ca7

File tree

1 file changed

+5
-22
lines changed

1 file changed

+5
-22
lines changed

src/stdlib_experimental_error.f90

+5-22
Original file line numberDiff line numberDiff line change
@@ -5,33 +5,16 @@ module stdlib_experimental_error
55
private
66

77
interface ! f{08,18}estop.f90
8-
module subroutine error_stop(msg, code)
9-
character(*), intent(in) :: msg
10-
integer, intent(in), optional :: code
11-
end subroutine error_stop
8+
module subroutine error_stop(msg, code)
9+
character(*), intent(in) :: msg
10+
integer, intent(in), optional :: code
11+
end subroutine error_stop
1212
end interface
1313

14-
public :: assert, check, error_stop
14+
public :: check, error_stop
1515

1616
contains
1717

18-
subroutine assert(condition, code)
19-
! If condition == .false., it aborts the program.
20-
!
21-
! Arguments
22-
! ---------
23-
!
24-
logical, intent(in) :: condition
25-
integer, intent(in), optional :: code
26-
!
27-
! Example
28-
! -------
29-
!
30-
! call assert(a == 5)
31-
32-
if (.not. condition) call error_stop("Assert failed.", code)
33-
end subroutine
34-
3518
subroutine check(condition, msg, code, warn)
3619

3720
! Checks the value of a logical condition. If condition == .false. and:

0 commit comments

Comments
 (0)