@@ -22,7 +22,7 @@ subroutine collect_filesystem(testsuite)
2222 new_unittest(" fs_file_not_exists" , fs_file_not_exists, should_fail= .true. ), &
2323 new_unittest(" fs_file_exists" , fs_file_exists), &
2424 new_unittest(" fs_current_dir_exists" , fs_current_dir_exists), &
25- new_unittest(" fs_use_path_separator" , fs_path_separator ), &
25+ new_unittest(" fs_use_path_separator" , fs_use_path_separator ), &
2626 new_unittest(" fs_run_invalid_command" , fs_run_invalid_command, should_fail= .true. ), &
2727 new_unittest(" fs_run_with_invalid_option" , fs_run_with_invalid_option, should_fail= .true. ), &
2828 new_unittest(" fs_run_valid_command" , fs_run_valid_command), &
@@ -57,7 +57,7 @@ subroutine fs_path_separator(error)
5757
5858 call get_environment_variable(' HOMEDRIVE' , value, length, stat)
5959 if (stat == 0 .and. length > 0 ) then
60- call check(error, path_separator == ' \\ ' , " Path separator should be set for Windows." )
60+ call check(error, path_separator == ' \' , " Path separator should be set for Windows." )
6161 else
6262 call check(error, path_separator == ' /' , " Path separator should not be set for non-Windows." )
6363 end if
0 commit comments