better test fail messages

Author: wassup05

test/system/test_filesystem.f90

@@ -88,7 +88,8 @@ subroutine test_exists_reg_file(error)
             return
         end if
 
-        call check(error, t == type_regular_file, "exists incorrectly identifies type of reg files!")
+        call check(error, t == type_regular_file, "exists incorrectly identifies type of &
+            reg files!: type=" // to_string(t))
 
         if (allocated(error)) then
             ! Clean up: remove the file
@@ -123,17 +124,18 @@ subroutine test_exists_dir(error)
         if (allocated(error)) then
             ! Clean up: remove the directory
             call execute_command_line("rmdir " // dirname, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
-            call check(error, ios == 0 .and. iocmd == 0, err%message // "and &
+            call check(error, ios == 0 .and. iocmd == 0, err%message // " and &
                 & cannot cleanup test_exists_dir: " // trim(msg))
             return
         end if
 
-        call check(error, t == type_directory, "exists incorrectly identifies type of directories!")
+        call check(error, t == type_directory, "exists incorrectly identifies type of &
+            directories!: type=" // to_string(t))
 
         if (allocated(error)) then
             ! Clean up: remove the directory
             call execute_command_line("rmdir " // dirname, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
-            call check(error, ios == 0 .and. iocmd == 0, err%message // "and &
+            call check(error, ios == 0 .and. iocmd == 0, err%message // " and &
                 & cannot cleanup test_exists_dir: " // trim(msg))
             return
         end if
@@ -184,17 +186,18 @@ subroutine test_exists_symlink(error)
             return
         end if
 
-        call check(error, t == type_symlink, "exists incorrectly identifies type of symlinks!")
+        call check(error, t == type_symlink, "exists incorrectly identifies type of &
+            symlinks!: type=" // to_string(t))
 
         if (allocated(error)) then
             ! Clean up: remove the link
             call execute_command_line("rm " // link_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
-            call check(error, ios == 0 .and. iocmd == 0, err%message // "and &
+            call check(error, ios == 0 .and. iocmd == 0, err%message // " and &
                 & cannot delete link: " // trim(msg))
 
             ! Clean up: remove the target
             close(iunit,status='delete',iostat=ios,iomsg=msg)
-            call check(error, ios == 0, err%message // "and cannot delete target: " // trim(msg))
+            call check(error, ios == 0, err%message // " and cannot delete target: " // trim(msg))
             return
         end if
 
@@ -205,7 +208,7 @@ subroutine test_exists_symlink(error)
         if (allocated(error)) then
             ! Clean up: remove the target
             close(iunit,status='delete',iostat=ios,iomsg=msg)
-            call check(error, ios == 0, err%message // "and cannot delete target: " // trim(msg))
+            call check(error, ios == 0, err%message // " and cannot delete target: " // trim(msg))
         end if
     end subroutine test_exists_symlink