File tree Expand file tree Collapse file tree 1 file changed +6
-6
lines changed Expand file tree Collapse file tree 1 file changed +6
-6
lines changed Original file line number Diff line number Diff line change @@ -343,28 +343,28 @@ subroutine test_dir_with_crlf(error)
343343 return
344344 end if
345345
346- if (lines(1 )/= ' build.f90' ) then
346+ if (lines(1 )% s /= ' build.f90' ) then
347347 call test_failed(error, " Failed reading file with CRLF: at build.f90" )
348348 return
349349 end if
350- if (lines(2 )/= ' dependency.f90' ) then
350+ if (lines(2 )% s /= ' dependency.f90' ) then
351351 call test_failed(error, " Failed reading file with CRLF: at dependency.f90" )
352352 return
353353 end if
354- if (lines(3 )/= ' example.f90' ) then
354+ if (lines(3 )% s /= ' example.f90' ) then
355355 call test_failed(error, " Failed reading file with CRLF: at example.f90" )
356356 return
357357 end if
358- if (lines(4 )/= ' executable.f90' ) then
358+ if (lines(4 )% s /= ' executable.f90' ) then
359359 call test_failed(error, " Failed reading file with CRLF: at executable.f90" )
360360 return
361361 end if
362- if (lines(5 )/= ' fortran.f90' ) then
362+ if (lines(5 )% s /= ' fortran.f90' ) then
363363 call test_failed(error, " Failed reading file with CRLF: at fortran.f90" )
364364 return
365365 end if
366366
367- call delete_dile (temp_file)
367+ call delete_file (temp_file)
368368
369369 end subroutine test_dir_with_crlf
370370
You can’t perform that action at this time.
0 commit comments