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)
343
343
return
344
344
end if
345
345
346
- if (lines(1 )/= ' build.f90' ) then
346
+ if (lines(1 )% s /= ' build.f90' ) then
347
347
call test_failed(error, " Failed reading file with CRLF: at build.f90" )
348
348
return
349
349
end if
350
- if (lines(2 )/= ' dependency.f90' ) then
350
+ if (lines(2 )% s /= ' dependency.f90' ) then
351
351
call test_failed(error, " Failed reading file with CRLF: at dependency.f90" )
352
352
return
353
353
end if
354
- if (lines(3 )/= ' example.f90' ) then
354
+ if (lines(3 )% s /= ' example.f90' ) then
355
355
call test_failed(error, " Failed reading file with CRLF: at example.f90" )
356
356
return
357
357
end if
358
- if (lines(4 )/= ' executable.f90' ) then
358
+ if (lines(4 )% s /= ' executable.f90' ) then
359
359
call test_failed(error, " Failed reading file with CRLF: at executable.f90" )
360
360
return
361
361
end if
362
- if (lines(5 )/= ' fortran.f90' ) then
362
+ if (lines(5 )% s /= ' fortran.f90' ) then
363
363
call test_failed(error, " Failed reading file with CRLF: at fortran.f90" )
364
364
return
365
365
end if
366
366
367
- call delete_dile (temp_file)
367
+ call delete_file (temp_file)
368
368
369
369
end subroutine test_dir_with_crlf
370
370
You can’t perform that action at this time.
0 commit comments