cleanup path make_directory_all + typo

Author: wassup05

doc/specs/stdlib_system.md

@@ -562,7 +562,7 @@ Subroutine
 
 ### Return values
 
-`err` is an optional state return flag. If not requested and an error occurs, a `FS_ERROR` will trigger an error stop.
+`err` is an optional state return flag. If not requested and an error occurs, an `FS_ERROR` will trigger an error stop.
 
 ### Example
 
@@ -599,7 +599,7 @@ Subroutine
 
 ### Return values
 
-`err` is an optional state return flag. If not requested and an error occurs, a `FS_ERROR` will trigger an error stop.
+`err` is an optional state return flag. If not requested and an error occurs, an `FS_ERROR` will trigger an error stop.
 
 ### Example
 
@@ -636,7 +636,7 @@ Subroutine
 
 ### Return values
 
-`err` is an optional state return flag. On error if not requested, a `FS_ERROR` will trigger an error stop.
+`err` is an optional state return flag. On error if not requested, an `FS_ERROR` will trigger an error stop.
 
 ### Example
 

test/system/test_filesystem.f90

@@ -239,9 +239,9 @@ subroutine test_make_directory_all(error)
 
         ! clean up: remove the empty directory
         if (is_windows()) then
-            call execute_command_line('rmdir /s /q ' // dir_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
+            call execute_command_line('rmdir /s /q d1', exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
         else
-            call execute_command_line('rm -rf ' // dir_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
+            call execute_command_line('rm -rf d1', exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
         end if
 
         call check(error, ios==0 .and. iocmd==0, 'Cannot cleanup make_directory_all test: '//trim(msg))