snake case names

Author: wassup05

src/stdlib_system.F90

@@ -137,9 +137,14 @@ module stdlib_system
 !! version: experimental
 !!
 !! A helper function for returning the `type(state_type)` with the flag `STDLIB_FS_ERROR` set.
-!! `FS_ERROR_CODE` also prefixes the `code` passed to it as the first argument 
 !!
-public :: FS_ERROR, FS_ERROR_CODE
+public :: fs_error
+!! version: experimental
+!!
+!! A helper function for returning the `type(state_type)` with the flag `STDLIB_FS_ERROR` set.
+!! It also formats and prefixes the `code` passed to it as the first argument
+!!
+public :: fs_error_code
 
 ! CPU clock ticks storage
 integer, parameter, private :: TICKS = int64
@@ -777,7 +782,7 @@ subroutine delete_file(path, err)
     end if
 end subroutine delete_file
 
-pure function FS_ERROR_CODE(code,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10, & 
+pure function fs_error_code(code,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10, & 
         a11,a12,a13,a14,a15,a16,a17,a18) result(state)
 
     type(state_type) :: state
@@ -789,9 +794,9 @@ pure function FS_ERROR_CODE(code,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10, &
 
     state = state_type(STDLIB_FS_ERROR, "code -", to_string(code)//",",a1,a2,a3,a4,a5,a6,a7,a8, & 
         a9,a10,a11,a12,a13,a14,a15,a16,a17,a18)
-end function FS_ERROR_CODE
+end function fs_error_code
 
-pure function FS_ERROR(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11, &
+pure function fs_error(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11, &
         a12,a13,a14,a15,a16,a17,a18,a19,a20) result(state)
 
     type(state_type) :: state
@@ -801,6 +806,6 @@ pure function FS_ERROR(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11, &
 
     state = state_type(STDLIB_FS_ERROR, a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12, &
         a13,a14,a15,a16,a17,a18,a19,a20)
-end function FS_ERROR
+end function fs_error
 
 end module stdlib_system

test/system/test_filesystem.f90

@@ -1,6 +1,6 @@
 module test_filesystem
     use testdrive, only : new_unittest, unittest_type, error_type, check, skip_test
-    use stdlib_system, only: is_directory, delete_file, FS_ERROR, FS_ERROR_CODE
+    use stdlib_system, only: is_directory, delete_file, fs_error, fs_error_code
     use stdlib_error, only: state_type, STDLIB_FS_ERROR
 
     implicit none
@@ -13,7 +13,7 @@ subroutine collect_suite(testsuite)
         type(unittest_type), allocatable, intent(out) :: testsuite(:)
 
         testsuite = [ &
-            new_unittest("FS_ERROR", test_FS_ERROR), &
+            new_unittest("fs_error", test_FS_ERROR), &
             new_unittest("fs_is_directory_dir", test_is_directory_dir), &
             new_unittest("fs_is_directory_file", test_is_directory_file), &
             new_unittest("fs_delete_non_existent", test_delete_file_non_existent), &
@@ -22,25 +22,25 @@ subroutine collect_suite(testsuite)
         ]
     end subroutine collect_suite
 
-    subroutine test_FS_ERROR(error)
+    subroutine test_fs_error(error)
         type(error_type), allocatable, intent(out) :: error
         type(state_type) :: s1, s2
         character(:), allocatable :: msg
 
         msg = "code - 10, Cannot create File temp.txt - File already exists"
-        s1 = FS_ERROR_CODE(10, "Cannot create File temp.txt -", "File already exists")
+        s1 = fs_error_code(10, "Cannot create File temp.txt -", "File already exists")
 
         call check(error, s1%state == STDLIB_FS_ERROR .and. s1%message == msg, &
-            "FS_ERROR: Could not construct the state with code correctly")
+            "fs_error_code: Could not construct the state with code correctly")
         if (allocated(error)) return
 
         msg = "Cannot create File temp.txt - File already exists"
-        s2 = FS_ERROR("Cannot create File temp.txt -", "File already exists")
+        s2 = fs_error("Cannot create File temp.txt -", "File already exists")
 
         call check(error, s2%state == STDLIB_FS_ERROR .and. s2%message == msg, &
-            "FS_ERROR: Could not construct state without code correctly")
+            "fs_error: Could not construct state without code correctly")
         if (allocated(error)) return
-    end subroutine test_FS_ERROR
+    end subroutine test_fs_error
 
     ! Test `is_directory` for a directory
     subroutine test_is_directory_dir(error)