@@ -5,33 +5,16 @@ module stdlib_experimental_error
5
5
private
6
6
7
7
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
12
12
end interface
13
13
14
- public :: assert, check, error_stop
14
+ public :: check, error_stop
15
15
16
16
contains
17
17
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
-
35
18
subroutine check (condition , msg , code , warn )
36
19
37
20
! Checks the value of a logical condition. If condition == .false. and:
0 commit comments