@@ -123,7 +123,7 @@ subroutine test_10(error_cnt)
123123 error_cnt = error_cnt + 1
124124 else
125125 ! also make sure the values are correct:
126- if (found .and. size (str_vec)==5 .and. &
126+ if (found .and. size (str_vec)==6 .and. &
127127 str_vec(1 )==' ..\path\to\files\file1.txt' ) then
128128 write (error_unit,' (A)' ) ' ...success'
129129 else
@@ -282,7 +282,7 @@ subroutine test_10(error_cnt)
282282 error_cnt = error_cnt + 1
283283 else
284284 ! also make sure the values are correct:
285- if (found .and. size (str_vec)==5 .and. &
285+ if (found .and. size (str_vec)==6 .and. &
286286 str_vec(1 )==' ..\path\to\files\file1.txt' ) then
287287 write (error_unit,' (A)' ) ' ...success'
288288 else
@@ -304,7 +304,7 @@ subroutine test_10(error_cnt)
304304 else
305305 write (error_unit,' (A)' ) ' ...success'
306306 end if
307-
307+
308308
309309 !- -------------------------------
310310
@@ -321,12 +321,12 @@ end module jf_test_10_mod
321321program jf_test_10
322322
323323 ! ! Tenth unit test.
324-
324+
325325 use jf_test_10_mod , only: test_10
326326 implicit none
327327 integer :: n_errors
328328 n_errors = 0
329329 call test_10(n_errors)
330330 if (n_errors /= 0 ) stop 1
331331end program jf_test_10
332- ! *****************************************************************************************
332+ ! *****************************************************************************************
0 commit comments