Skip to content

Commit f4ffaa6

Browse files
milancurcicmilancurcic
committed
update program name and fix indentation
1 parent fd684bd commit f4ffaa6

File tree

1 file changed

+82
-82
lines changed

1 file changed

+82
-82
lines changed

‎src/tests/math/test_stdlib_math.f90

Lines changed: 82 additions & 82 deletions
Original file line numberDiff line numberDiff line change
@@ -1,98 +1,98 @@
11
! SPDX-Identifier: MIT
22

3-
program tester
3+
program test_stdlib_math
44
use stdlib_math, only: clip
55
use stdlib_error, only: check
66
use stdlib_kinds, only: int8, int16, int32, int64, sp, dp, qp
77
implicit none
88

99
! clip function
10-
! testing format: check(clip(x, xmin, xmax) == correct answer)
11-
! valid case: xmin is not greater than xmax
12-
! invalid case: xmin is greater than xmax
10+
! testing format: check(clip(x, xmin, xmax) == correct answer)
11+
! valid case: xmin is not greater than xmax
12+
! invalid case: xmin is greater than xmax
1313

14-
! type: integer(int8), kind: int8
15-
! valid test case
16-
call check(clip(2_int8, -2_int8, 5_int8) == 2_int8, &
17-
'clip_int8 failed for valid case', warn=.true.)
18-
call check(clip(127_int8, -127_int8, 0_int8) == 0_int8, &
19-
'clip_int8 failed for valid case', warn=.true.)
20-
! invalid test case
21-
call check(clip(2_int8, 5_int8, -2_int8) == 5_int8, &
22-
'clip_int8 failed for invalid case', warn=.true.)
23-
call check(clip(127_int8, 0_int8, -127_int8) == 0_int8, &
24-
'clip_int8 failed for invalid case', warn=.true.)
14+
! type: integer(int8), kind: int8
15+
! valid test case
16+
call check(clip(2_int8, -2_int8, 5_int8) == 2_int8, &
17+
'clip_int8 failed for valid case', warn=.true.)
18+
call check(clip(127_int8, -127_int8, 0_int8) == 0_int8, &
19+
'clip_int8 failed for valid case', warn=.true.)
20+
! invalid test case
21+
call check(clip(2_int8, 5_int8, -2_int8) == 5_int8, &
22+
'clip_int8 failed for invalid case', warn=.true.)
23+
call check(clip(127_int8, 0_int8, -127_int8) == 0_int8, &
24+
'clip_int8 failed for invalid case', warn=.true.)
2525

26-
! type: integer(int16), kind: int16
27-
! valid test case
28-
call check(clip(2_int16, -2_int16, 5_int16) == 2_int16, &
29-
'clip_int16 failed for valid case', warn=.true.)
30-
call check(clip(32767_int16, -32767_int16, 0_int16) == 0_int16, &
31-
'clip_int16 failed for valid case', warn=.true.)
32-
! invalid test case
33-
call check(clip(2_int16, 5_int16, -2_int16) == 5_int16, &
34-
'clip_int16 failed for invalid case', warn=.true.)
35-
call check(clip(32767_int16, 0_int16, -32767_int16) == 0_int16, &
36-
'clip_int16 failed for invalid case', warn=.true.)
26+
! type: integer(int16), kind: int16
27+
! valid test case
28+
call check(clip(2_int16, -2_int16, 5_int16) == 2_int16, &
29+
'clip_int16 failed for valid case', warn=.true.)
30+
call check(clip(32767_int16, -32767_int16, 0_int16) == 0_int16, &
31+
'clip_int16 failed for valid case', warn=.true.)
32+
! invalid test case
33+
call check(clip(2_int16, 5_int16, -2_int16) == 5_int16, &
34+
'clip_int16 failed for invalid case', warn=.true.)
35+
call check(clip(32767_int16, 0_int16, -32767_int16) == 0_int16, &
36+
'clip_int16 failed for invalid case', warn=.true.)
3737

38-
! type: integer(int32), kind: int32
39-
! valid test case
40-
call check(clip(2_int32, -2_int32, 5_int32) == 2_int32, &
41-
'clip_int32 failed for valid case', warn=.true.)
42-
call check(clip(-2147483647_int32, 0_int32, 2147483647_int32) == 0_int32, &
43-
'clip_int32 failed for valid case', warn=.true.)
44-
! invalid test case
45-
call check(clip(2_int32, 5_int32, -2_int32) == 5_int32, &
46-
'clip_int32 failed for invalid case', warn=.true.)
47-
call check(clip(-2147483647_int32, 2147483647_int32, 0_int32) == 2147483647_int32, &
48-
'clip_int32 failed for invalid case', warn=.true.)
38+
! type: integer(int32), kind: int32
39+
! valid test case
40+
call check(clip(2_int32, -2_int32, 5_int32) == 2_int32, &
41+
'clip_int32 failed for valid case', warn=.true.)
42+
call check(clip(-2147483647_int32, 0_int32, 2147483647_int32) == 0_int32, &
43+
'clip_int32 failed for valid case', warn=.true.)
44+
! invalid test case
45+
call check(clip(2_int32, 5_int32, -2_int32) == 5_int32, &
46+
'clip_int32 failed for invalid case', warn=.true.)
47+
call check(clip(-2147483647_int32, 2147483647_int32, 0_int32) == 2147483647_int32, &
48+
'clip_int32 failed for invalid case', warn=.true.)
4949

50-
! type: integer(int64), kind: int64
51-
! valid test case
52-
call check(clip(2_int64, -2_int64, 5_int64) == 2_int64, &
53-
'clip_int64 failed for valid case', warn=.true.)
54-
call check(clip(-922337203_int64, -10_int64, 25_int64) == -10_int64, &
55-
'clip_int64 failed for valid case', warn=.true.)
56-
! invalid test case
57-
call check(clip(2_int64, 5_int64, -2_int64) == 5_int64, &
58-
'clip_int64 failed for invalid case', warn=.true.)
59-
call check(clip(-922337203_int64, 25_int64, -10_int64) == 25_int64, &
60-
'clip_int64 failed for invalid case', warn=.true.)
50+
! type: integer(int64), kind: int64
51+
! valid test case
52+
call check(clip(2_int64, -2_int64, 5_int64) == 2_int64, &
53+
'clip_int64 failed for valid case', warn=.true.)
54+
call check(clip(-922337203_int64, -10_int64, 25_int64) == -10_int64, &
55+
'clip_int64 failed for valid case', warn=.true.)
56+
! invalid test case
57+
call check(clip(2_int64, 5_int64, -2_int64) == 5_int64, &
58+
'clip_int64 failed for invalid case', warn=.true.)
59+
call check(clip(-922337203_int64, 25_int64, -10_int64) == 25_int64, &
60+
'clip_int64 failed for invalid case', warn=.true.)
6161

62-
! type: real(sp), kind: sp
63-
! valid test case
64-
call check(clip(3.025_sp, -5.77_sp, 3.025_sp) == 3.025_sp, &
65-
'clip_sp failed for valid case', warn=.true.)
66-
call check(clip(0.0_sp, -1578.025_sp, -59.68_sp) == -59.68_sp, &
67-
'clip_sp failed for valid case', warn=.true.)
68-
! invalid test case
69-
call check(clip(3.025_sp, 3.025_sp, -5.77_sp) == 3.025_sp, &
70-
'clip_sp failed for invalid case', warn=.true.)
71-
call check(clip(0.0_sp, -59.68_sp, -1578.025_sp) == -59.68_sp, &
72-
'clip_sp failed for invalid case', warn=.true.)
62+
! type: real(sp), kind: sp
63+
! valid test case
64+
call check(clip(3.025_sp, -5.77_sp, 3.025_sp) == 3.025_sp, &
65+
'clip_sp failed for valid case', warn=.true.)
66+
call check(clip(0.0_sp, -1578.025_sp, -59.68_sp) == -59.68_sp, &
67+
'clip_sp failed for valid case', warn=.true.)
68+
! invalid test case
69+
call check(clip(3.025_sp, 3.025_sp, -5.77_sp) == 3.025_sp, &
70+
'clip_sp failed for invalid case', warn=.true.)
71+
call check(clip(0.0_sp, -59.68_sp, -1578.025_sp) == -59.68_sp, &
72+
'clip_sp failed for invalid case', warn=.true.)
7373

74-
! type: real(dp), kind: dp
75-
! valid test case
76-
call check(clip(3.025_dp, -5.77_dp, 3.025_dp) == 3.025_dp, &
77-
'clip_dp failed for valid case', warn=.true.)
78-
call check(clip(-7.0_dp, 0.059668_dp, 1.00268_dp) == 0.059668_dp, &
79-
'clip_dp failed for valid case', warn=.true.)
80-
! invalid test case
81-
call check(clip(3.025_dp, 3.025_dp, -5.77_dp) == 3.025_dp, &
82-
'clip_dp failed for invalid case', warn=.true.)
83-
call check(clip(-7.0_dp, 1.00268_dp, 0.059668_dp) == 1.00268_dp, &
84-
'clip_dp failed for invalid case', warn=.true.)
74+
! type: real(dp), kind: dp
75+
! valid test case
76+
call check(clip(3.025_dp, -5.77_dp, 3.025_dp) == 3.025_dp, &
77+
'clip_dp failed for valid case', warn=.true.)
78+
call check(clip(-7.0_dp, 0.059668_dp, 1.00268_dp) == 0.059668_dp, &
79+
'clip_dp failed for valid case', warn=.true.)
80+
! invalid test case
81+
call check(clip(3.025_dp, 3.025_dp, -5.77_dp) == 3.025_dp, &
82+
'clip_dp failed for invalid case', warn=.true.)
83+
call check(clip(-7.0_dp, 1.00268_dp, 0.059668_dp) == 1.00268_dp, &
84+
'clip_dp failed for invalid case', warn=.true.)
8585

86-
! type: real(qp), kind: qp
87-
! valid test case
88-
call check(clip(3.025_qp, -5.77_qp, 3.025_qp) == 3.025_qp, &
89-
'clip_qp failed for valid case', warn=.true.)
90-
call check(clip(-55891546.2_qp, -8958133457.23_qp, -689712245.23_qp) == -689712245.23_qp, &
91-
'clip_qp failed for valid case', warn=.true.)
92-
! invalid test case
93-
call check(clip(3.025_qp, 3.025_qp, -5.77_qp) == 3.025_qp, &
94-
'clip_qp failed for invalid case', warn=.true.)
95-
call check(clip(-55891546.2_qp, -689712245.23_qp, -8958133457.23_qp) == -689712245.23_qp, &
96-
'clip_qp failed for invalid case', warn=.true.)
86+
! type: real(qp), kind: qp
87+
! valid test case
88+
call check(clip(3.025_qp, -5.77_qp, 3.025_qp) == 3.025_qp, &
89+
'clip_qp failed for valid case', warn=.true.)
90+
call check(clip(-55891546.2_qp, -8958133457.23_qp, -689712245.23_qp) == -689712245.23_qp, &
91+
'clip_qp failed for valid case', warn=.true.)
92+
! invalid test case
93+
call check(clip(3.025_qp, 3.025_qp, -5.77_qp) == 3.025_qp, &
94+
'clip_qp failed for invalid case', warn=.true.)
95+
call check(clip(-55891546.2_qp, -689712245.23_qp, -8958133457.23_qp) == -689712245.23_qp, &
96+
'clip_qp failed for invalid case', warn=.true.)
9797

98-
end program tester
98+
end program test_stdlib_math

0 commit comments

Comments
 (0)