We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 7807370 + 0350e7b commit c1b75b0Copy full SHA for c1b75b0
src/tests/jf_test_26.F90
@@ -22,6 +22,8 @@ subroutine test_26(error_cnt)
22
logical(lk) :: is_valid
23
character(kind=CK,len=:),allocatable :: error_msg
24
25
+ error_cnt = 0
26
+
27
call f%initialize() ! specify whatever init options you want.
28
29
write(error_unit,'(A)') 'adding data to json_file...'
@@ -76,7 +78,7 @@ program jf_test_26
76
78
use jf_test_26_mod , only: test_26
77
79
implicit none
80
integer :: n_errors
- n_errors = 0
81
82
call test_26(n_errors)
83
if (n_errors /= 0) stop 1
84
0 commit comments