File tree Expand file tree Collapse file tree 1 file changed +12
-0
lines changed Expand file tree Collapse file tree 1 file changed +12
-0
lines changed Original file line number Diff line number Diff line change @@ -152,6 +152,18 @@ subroutine test_2(error_cnt)
152
152
153
153
write (error_unit,' (A)' ) ' json_clone test'
154
154
call json_clone(p,p_clone)
155
+
156
+ write (error_unit,' (A)' ) ' '
157
+ write (error_unit,' (A)' ) ' ============='
158
+ write (error_unit,' (A)' ) ' p_clone'
159
+ write (error_unit,' (A)' ) ' ============='
160
+ call json_print(p_clone,error_unit)
161
+ write (error_unit,' (A)' ) ' ============='
162
+ write (error_unit,' (A)' ) ' '
163
+
164
+ if (.not. associated (p)) write (error_unit,' (A)' ) ' ERROR: p has become unassociated'
165
+ if (.not. associated (p_clone)) write (error_unit,' (A)' ) ' ERROR: p_clone is not associated'
166
+
155
167
if (json_failed()) then
156
168
call json_print_error_message(error_unit)
157
169
error_cnt = error_cnt + 1
You can’t perform that action at this time.
0 commit comments