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.
1 parent f9ce12f commit 7e5e858Copy full SHA for 7e5e858
src/tests/jf_test_06.F90
@@ -74,6 +74,8 @@ subroutine test_6(error_cnt)
74
do j = 1, min(len(error_msg), len(expected_error_msg))
75
if (error_msg(j:j) /= expected_error_msg(j:j)) then
76
write(error_unit,'(I3,1X,A,A,A,A,A)') j, '"', error_msg(j:j), '" /= "', expected_error_msg(j:j), '"'
77
+ else
78
+ write(error_unit,'(I3,1X,A,A,A,A,A)') j, '"', error_msg(j:j), '" == "', expected_error_msg(j:j), '"'
79
end if
80
end do
81
error_cnt = error_cnt + 1
0 commit comments