Skip to content

Commit 770a051

Browse files
committed
add some print statements for debugging travis build.
1 parent d0adc46 commit 770a051

File tree

1 file changed

+12
-0
lines changed

1 file changed

+12
-0
lines changed

src/tests/jf_test_2.f90

Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -152,6 +152,18 @@ subroutine test_2(error_cnt)
152152

153153
write(error_unit,'(A)') 'json_clone test'
154154
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+
155167
if (json_failed()) then
156168
call json_print_error_message(error_unit)
157169
error_cnt = error_cnt + 1

0 commit comments

Comments
 (0)