Update unsigned type import.

interkosmos · interkosmos · commit 843d30227b75 · 2025-10-11T14:28:42.000+02:00
diff --git a/src/unix.f90 b/src/unix.f90
@@ -6,7 +6,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix
-    use, intrinsic :: iso_c_binding
     use :: unix_dirent
     use :: unix_errno
     use :: unix_fcntl
diff --git a/src/unix_dirent.F90 b/src/unix_dirent.F90
@@ -3,7 +3,7 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_dirent
-    use, intrinsic :: iso_c_binding
+    use :: unix_types
     implicit none
     private
 
diff --git a/src/unix_errno.F90 b/src/unix_errno.F90
@@ -3,8 +3,9 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_errno
-    use, intrinsic :: iso_c_binding
+    use :: unix_types
     implicit none
+    private
 
 #if defined (__linux__)
 
diff --git a/src/unix_fcntl.F90 b/src/unix_fcntl.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_fcntl
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
diff --git a/src/unix_ftw.F90 b/src/unix_ftw.F90
@@ -3,7 +3,7 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_ftw
-    use, intrinsic :: iso_c_binding
+    use :: unix_types
     implicit none
     private
 
diff --git a/src/unix_inet.F90 b/src/unix_inet.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_inet
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
diff --git a/src/unix_ioctl.F90 b/src/unix_ioctl.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_ioctl
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
diff --git a/src/unix_ipc.F90 b/src/unix_ipc.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_ipc
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
diff --git a/src/unix_mqueue.F90 b/src/unix_mqueue.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_mqueue
-    use, intrinsic :: iso_c_binding
     use :: unix_time
     use :: unix_types
     implicit none
diff --git a/src/unix_msg.F90 b/src/unix_msg.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_msg
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
diff --git a/src/unix_netdb.F90 b/src/unix_netdb.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_netdb
-    use, intrinsic :: iso_c_binding
     use :: unix_fcntl
     use :: unix_types
     implicit none
diff --git a/src/unix_pthread.F90 b/src/unix_pthread.F90
@@ -3,7 +3,7 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_pthread
-    use, intrinsic :: iso_c_binding
+    use :: unix_types
     implicit none
     private
 
diff --git a/src/unix_regex.F90 b/src/unix_regex.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_regex
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
diff --git a/src/unix_semaphore.F90 b/src/unix_semaphore.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_semaphore
-    use, intrinsic :: iso_c_binding
     use :: unix_time
     use :: unix_types
     implicit none
diff --git a/src/unix_signal.F90 b/src/unix_signal.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_signal
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
diff --git a/src/unix_socket.F90 b/src/unix_socket.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_socket
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
diff --git a/src/unix_stat.F90 b/src/unix_stat.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_stat
-    use, intrinsic :: iso_c_binding
     use :: unix_time
     use :: unix_types
     implicit none
diff --git a/src/unix_stdio.F90 b/src/unix_stdio.F90
@@ -3,7 +3,7 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_stdio
-    use, intrinsic :: iso_c_binding
+    use :: unix_types
     implicit none
     private
 
diff --git a/src/unix_stdlib.F90 b/src/unix_stdlib.F90
@@ -3,7 +3,7 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_stdlib
-    use, intrinsic :: iso_c_binding
+    use :: unix_types
     implicit none
     private
 
diff --git a/src/unix_string.F90 b/src/unix_string.F90
@@ -3,7 +3,7 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_string
-    use, intrinsic :: iso_c_binding
+    use :: unix_types
     implicit none
     private
 
diff --git a/src/unix_syslog.F90 b/src/unix_syslog.F90
@@ -3,7 +3,7 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_syslog
-    use, intrinsic :: iso_c_binding
+    use :: unix_types
     implicit none
     private
 
diff --git a/src/unix_termios.F90 b/src/unix_termios.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_termios
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
diff --git a/src/unix_time.F90 b/src/unix_time.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_time
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
diff --git a/src/unix_types.F90 b/src/unix_types.F90
@@ -3,11 +3,43 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_types
-    use, intrinsic :: iso_c_binding
+    use, intrinsic :: iso_c_binding, only: c_associated, c_f_pointer, c_funloc, c_loc, c_sizeof, &
+                                           c_char, c_int, c_int8_t, c_int16_t, c_int32_t, c_int64_t, &
+                                           c_long, c_long_long, c_short, c_signed_char, c_size_t, &
+                                           c_funptr, c_ptr, c_null_char, c_null_funptr, c_null_ptr
+#if HAS_UNSIGNED
+
+    use, intrinsic :: iso_c_binding, only: c_uint16_t, c_uint32_t, c_uint64_t, c_unsigned, &
+                                           c_unsigned_char, c_unsigned_short, c_unsigned_long
+
+#endif
     implicit none
     private
 
-#if defined (__flang__) || (defined (__GFORTRAN__) && __GNUC__ > 15) || (defined (__GFORTRAN__) && __GNUC__ == 15 && __GNUC_MINOR__ >= 2)
+    public :: c_associated
+    public :: c_f_pointer
+    public :: c_funloc
+    public :: c_loc
+    public :: c_sizeof
+
+    public ::  c_char
+    public ::  c_int
+    public ::  c_int8_t
+    public ::  c_int16_t
+    public ::  c_int32_t
+    public ::  c_int64_t
+    public ::  c_long
+    public ::  c_long_long
+    public ::  c_short
+    public ::  c_signed_char
+    public ::  c_size_t
+    public ::  c_funptr
+    public ::  c_ptr
+    public ::  c_null_char
+    public ::  c_null_funptr
+    public ::  c_null_ptr
+
+#if HAS_UNSIGNED
 
     public :: c_uint16_t
     public :: c_uint32_t
diff --git a/src/unix_unistd.F90 b/src/unix_unistd.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_unistd
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
diff --git a/src/unix_utsname.F90 b/src/unix_utsname.F90
@@ -3,7 +3,7 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_utsname
-    use, intrinsic :: iso_c_binding
+    use :: unix_types
     implicit none
     private
 
diff --git a/src/unix_wait.F90 b/src/unix_wait.F90
@@ -3,7 +3,6 @@
 ! Author:  Philipp Engel
 ! Licence: ISC
 module unix_wait
-    use, intrinsic :: iso_c_binding
     use :: unix_types
     implicit none
     private
