Removed redundant imports.

Author: interkosmos

examples/dirent/dirent.f90

@@ -4,7 +4,6 @@
 ! Licence: ISC
 program main
     !! Prints the contents of a file system directory to stdout (unsorted).
-    use, intrinsic :: iso_c_binding
     use, intrinsic :: iso_fortran_env, only: stderr => error_unit
     use :: unix
     implicit none

examples/fifo/fifo.f90

@@ -9,7 +9,6 @@ program main
     !! ```
     !! $ echo "Hello, World!" > /tmp/fifo
     !! ```
-    use, intrinsic :: iso_c_binding
     use :: unix
     implicit none
 

examples/fork/fork.f90

@@ -5,7 +5,6 @@
 program main
     !! Example program that forks the main process and opens two anonymous pipes
     !! for IPC.
-    use, intrinsic :: iso_c_binding
     use :: unix
     implicit none
 

examples/irc/irc.f90

@@ -4,7 +4,6 @@
 ! Licence: ISC
 module irc
     !! IRC connectivity module.
-    use, intrinsic :: iso_c_binding
     use, intrinsic :: iso_fortran_env, only: i8 => int64, stderr => error_unit, stdout => output_unit
     use :: unix
     implicit none

examples/mqueue/mqueue.f90

@@ -56,7 +56,6 @@ program main
     !! The size of the buffer passed to `c_mq_receive()` must be greater than
     !! the MQ message size given by `mq_getattr()`. We may set the max. message
     !! size with `mq_setattr()` beforehand.
-    use, intrinsic :: iso_c_binding
     use :: unix
     implicit none
     character(len=*), parameter :: MQ_NAME = '/fortran'   ! New MQ in, e.g., `/mnt/mqueue/<name>`.

examples/msg/msg.f90

@@ -4,7 +4,6 @@
 ! Licence: ISC
 module ipc
     !! IPC abstraction module.
-    use, intrinsic :: iso_c_binding
     use :: unix
     implicit none
     private
@@ -58,7 +57,6 @@ end module ipc
 program main
     !! Example that sends and receives a message with UNIX System V message
     !! queues.
-    use, intrinsic :: iso_c_binding
     use, intrinsic :: iso_fortran_env, only: stderr => error_unit, stdout => output_unit
     use :: unix
     use :: ipc

examples/mutex/mutex.f90

@@ -4,7 +4,6 @@
 ! Licence: ISC
 module mutex
     !! Mutex module.
-    use, intrinsic :: iso_c_binding
     use :: unix
     implicit none
 
@@ -31,7 +30,6 @@ end module mutex
 
 program main
     !! Example that shows threaded access to a global variable, using a mutex.
-    use, intrinsic :: iso_c_binding
     use :: unix
     use :: mutex
     implicit none

examples/os/os.F90

@@ -34,41 +34,43 @@ end module os
 
 program main
     !! Prints the name of the operating system to stdout, using pre-processor
-    !! macros. Compile the source code with parameter `-cpp` (GNU Fortran) or
-    !! `-fpp` (IFORT) and `-D__<OS identifier>__`, for example:
+    !! macros. Pass the parameter `-D__<OS identifier>__` to GNU Fortran, for
+    !! example:
     !!
     !! ```
-    !! $ gfortran -cpp -D__linux__ -o os os.f90
-    !! $ gfortran -cpp -D__FreeBSD__ -o os os.f90
-    !! $ gfortran -cpp -D__APPLE__ -o os os.f90
-    !! $ ifort -fpp -o os os.f90
+    !! $ gfortran -D__linux__ -o os os.F90
+    !! $ gfortran -D__FreeBSD__ -o os os.F90
+    !! $ gfortran -D__APPLE__ -o os os.F90
+    !! $ ifort -o os os.F90
     !! ```
     use :: os
     implicit none
     integer :: current_os
 
-    print '(a)', 'Current Operating System'
-    print '(a)', repeat('-', 24)
+    print '("Current Operating System")'
+    print '(24("-"))'
 
     current_os = os_type()
 
+    write (* , '("Name: ")', advance='no')
+
     select case (current_os)
         case (OS_UNKNOWN)
-            print '("Name: ", a)', 'Unknown OS'
+            print '("Unknown OS")'
 
         case (OS_WINDOWS)
-            print '("Name: ", a)', 'Microsoft Windows (Cygwin, MSYS2)'
+            print '("Microsoft Windows (Cygwin, MSYS2)")'
 
         case (OS_MACOS)
-            print '("Name: ", a)', 'macOS'
+            print '("macOS")'
 
         case (OS_LINUX)
-            print '("Name: ", a)', 'GNU/Linux'
+            print '("GNU/Linux")'
 
         case (OS_FREEBSD)
-            print '("Name: ", a)', 'FreeBSD'
+            print '("FreeBSD")'
 
         case default
-            print '(a)', 'Error'
+            print '("Error")'
     end select
 end program main

examples/pid/pid.f90

@@ -4,7 +4,6 @@
 ! Licence: ISC
 program main
     !! Example program that outputs the process id.
-    use, intrinsic :: iso_c_binding
     use :: unix
     implicit none
 

examples/pipe/pipe.f90

@@ -4,7 +4,6 @@
 ! Licence: ISC
 program main
     !! Example that demonstrates IPC via bidirectional pipes.
-    use, intrinsic :: iso_c_binding
     use :: unix
     implicit none