typos + small changes

Author: wassup05

src/stdlib_system.F90

@@ -934,9 +934,9 @@ end function stdlib_is_directory
 
 end function is_directory
 
-! A helper function to get the result of the C function `strerror`.
-! `strerror` is a function provided by `<string.h>`. 
-! It returns a string describing the meaning of `errno` in the C header `<errno.h>`
+! A helper function to get the string describing an error from C functions.
+! If `winapi` is  false or not present, uses `strerror` provided by `<string.h>`
+! Otherwise, uses `strerror` on unix and `FormatMessageA` on windows.
 function c_get_strerror(winapi) result(str)
     character(len=:), allocatable :: str
     logical, optional, intent(in) :: winapi

src/stdlib_system.c

@@ -12,17 +12,17 @@
 #endif /* ifdef _WIN32 */
 
 // Wrapper to get the string describing a system syscall error.
-// Uses `strerr` on unix.
+// Always Uses `strerr` on unix.
 // if `winapi` is `false`, uses the usual `strerr` on windows.
-// If `winapi` is `false`, uses `FormatMessage`(from windows.h) on windows.
+// If `winapi` is `true`, uses `FormatMessageA`(from windows.h) on windows.
 char* stdlib_strerror(size_t* len, bool winapi){
 
     if (winapi) {
 #ifdef _WIN32
     LPSTR err = NULL;
     DWORD dw = GetLastError();
 
-    FormatMessage(
+    FormatMessageA(
     FORMAT_MESSAGE_ALLOCATE_BUFFER |
     FORMAT_MESSAGE_FROM_SYSTEM |
     FORMAT_MESSAGE_IGNORE_INSERTS,