Updated dummy argument.

Author: interkosmos

examples/mutex/mutex.f90

@@ -36,8 +36,9 @@ program main
     integer, parameter :: NTHREADS = 16
 
     integer           :: i, stat
-    type(c_pthread_t) :: threads(NTHREADS)
     integer, target   :: routines(NTHREADS) = [ (i, i = 1, NTHREADS) ]
+    type(c_pthread_t) :: threads(NTHREADS)
+    type(c_ptr)       :: ptr
 
     stat = c_pthread_mutex_init(mutex_sample, c_null_ptr)
 
@@ -53,7 +54,7 @@ program main
     print '("Joining threads ...")'
 
     do i = 1, NTHREADS
-        stat = c_pthread_join(threads(i), c_loc(routines(i)))
+        stat = c_pthread_join(threads(i), ptr)
     end do
 
     stat = c_pthread_mutex_destroy(mutex_sample)

examples/pthread/pthread.f90

@@ -10,8 +10,9 @@ program main
     integer, parameter :: NTHREADS = 3
 
     integer           :: i, stat
-    type(c_pthread_t) :: threads(NTHREADS)
     integer, target   :: routines(NTHREADS) = [ (i, i = 1, NTHREADS) ]
+    type(c_pthread_t) :: threads(NTHREADS)
+    type(c_ptr)       :: ptr
 
     print '("Starting threads ...")'
 
@@ -25,7 +26,7 @@ program main
     print '("Joining threads ...")'
 
     do i = 1, NTHREADS
-        stat = c_pthread_join(threads(i), c_loc(routines(i)))
+        stat = c_pthread_join(threads(i), ptr)
     end do
 contains
     recursive subroutine hello(arg) bind(c)

examples/semaphore/semaphore.f90

@@ -15,6 +15,7 @@ program main
     type(c_funptr)        :: procs(NTHREADS)
     type(c_pthread_t)     :: threads(NTHREADS)
     type(c_sem_t), target :: sem
+    type(c_ptr)           :: ptr
 
     integer         :: i, stat
     integer, target :: routines(NTHREADS) = [ (i, i = 1, NTHREADS) ]
@@ -38,7 +39,7 @@ program main
     print '("--- Joining threads ...")'
 
     do i = 1, NTHREADS
-        stat = c_pthread_join(threads(i), c_loc(routines(i)))
+        stat = c_pthread_join(threads(i), ptr)
     end do
 
     stat = c_sem_destroy(sem)

src/unix_pthread.F90

@@ -65,7 +65,7 @@ function c_pthread_join(thread, value_ptr) bind(c, name='pthread_join')
             import :: c_int, c_ptr, c_pthread_t
             implicit none
             type(c_pthread_t), intent(in), value :: thread
-            type(c_ptr),       intent(in)        :: value_ptr
+            type(c_ptr),       intent(out)       :: value_ptr
             integer(kind=c_int)                  :: c_pthread_join
         end function c_pthread_join