Add stdlib_experimental_kinds.f90 and use it

Author: certik

src/CMakeLists.txt

@@ -3,6 +3,7 @@ set(SRC
     stdlib_experimental_io.f90
     stdlib_experimental_error.f90
     stdlib_experimental_optval.f90
+    stdlib_experimental_kinds.f90
 )
 
 add_library(fortran_stdlib ${SRC})

src/stdlib_experimental_io.f90

@@ -1,5 +1,5 @@
 module stdlib_experimental_io
-use iso_fortran_env, only: sp=>real32, dp=>real64, qp=>real128
+use stdlib_experimental_kinds, only: sp, dp, qp
 use stdlib_experimental_error, only: error_stop
 use stdlib_experimental_optval, only: optval
 implicit none

src/stdlib_experimental_kinds.f90

@@ -0,0 +1,10 @@
+module stdlib_experimental_kinds
+! Instead of iso_fortran_env, we use iso_c_binding, to be compatible with C
+!use iso_fortran_env, only: sp=>real32, dp=>real64, qp=>real128
+!use iso_fortran_env, only: int32, int64, int128
+use iso_c_binding, only: sp=>c_float, dp=>c_double, qp=>c_float128
+use iso_c_binding, only: int32=>c_int32_t, int64=>c_int64_t, int128=>c_int128_t
+implicit none
+private
+public sp, dp, qp, int32, int64, int128
+end module

src/tests/io/test_loadtxt.f90

@@ -1,5 +1,5 @@
 program test_loadtxt
-use iso_fortran_env, only: sp=>real32, dp=>real64
+use stdlib_experimental_kinds, only: sp, dp
 use stdlib_experimental_io, only: loadtxt
 use stdlib_experimental_error, only: error_stop
 implicit none

src/tests/io/test_loadtxt_qp.f90

@@ -1,5 +1,5 @@
 program test_loadtxt_qp
-use iso_fortran_env, only: qp=>real128
+use stdlib_experimental_kinds, only: qp
 use stdlib_experimental_io, only: loadtxt
 implicit none
 

src/tests/io/test_savetxt.f90

@@ -1,5 +1,5 @@
 program test_savetxt
-use iso_fortran_env, only: sp=>real32, dp=>real64
+use stdlib_experimental_kinds, only: sp, dp
 use stdlib_experimental_io, only: loadtxt, savetxt
 use stdlib_experimental_error, only: assert
 implicit none

src/tests/io/test_savetxt_qp.f90

@@ -1,5 +1,5 @@
 program test_savetxt_qp
-use iso_fortran_env, only: qp=>real128
+use stdlib_experimental_kinds, only: qp
 use stdlib_experimental_io, only: loadtxt, savetxt
 use stdlib_experimental_error, only: assert
 implicit none