|
2 | 2 | !>
|
3 | 3 | ! Entry point for the unified unit test application.
|
4 | 4 | !
|
5 |
| -! Runs through all the tests in the `tests` folder |
6 |
| -! Returns 1 if there are any errors. |
| 5 | +! Runs all the tests in the `tests` folder |
| 6 | +! Returns `1` if there are any errors. |
7 | 7 |
|
8 | 8 | program jsonfortrantest
|
9 | 9 |
|
@@ -39,6 +39,9 @@ program jsonfortrantest
|
39 | 39 | use jf_test_30_mod , only: test_30
|
40 | 40 | use jf_test_31_mod , only: test_31
|
41 | 41 | use jf_test_32_mod , only: test_32
|
| 42 | + use jf_test_33_mod , only: test_33 |
| 43 | + use jf_test_34_mod , only: test_34 |
| 44 | + use jf_test_35_mod , only: test_35 |
42 | 45 |
|
43 | 46 | implicit none
|
44 | 47 |
|
@@ -78,6 +81,9 @@ program jsonfortrantest
|
78 | 81 | call test_30(n_errors); if (n_errors /= 0) stop 1
|
79 | 82 | call test_31(n_errors); if (n_errors /= 0) stop 1
|
80 | 83 | call test_32(n_errors); if (n_errors /= 0) stop 1
|
| 84 | + call test_33(n_errors); if (n_errors /= 0) stop 1 |
| 85 | + call test_34(n_errors); if (n_errors /= 0) stop 1 |
| 86 | + call test_35(n_errors); if (n_errors /= 0) stop 1 |
81 | 87 |
|
82 | 88 | end program jsonfortrantest
|
83 | 89 | !*****************************************************************************************
|
|
0 commit comments