Add all remaining prif interfaces

src/caffeine/alias_m.f90

@@ -0,0 +1,28 @@
+! Copyright (c), The Regents of the University of California
+! Terms of use are as specified in LICENSE.txt
+module alias_m
+  use iso_c_binding, only: c_intmax_t
+  use allocation_m, only: prif_coarray_handle
+
+  implicit none
+  private
+  public :: prif_alias_create, prif_alias_destroy
+
+  interface
+
+     module subroutine prif_alias_create(source_handle, alias_co_lbounds, alias_co_ubounds, alias_handle)
+       implicit none
+       type(prif_coarray_handle), intent(in) :: source_handle
+       integer(c_intmax_t), intent(in) :: alias_co_lbounds(:)
+       integer(c_intmax_t), intent(in) :: alias_co_ubounds(:)
+       type(prif_coarray_handle), intent(out) :: alias_handle
+     end subroutine
+
+     module subroutine prif_alias_destroy(alias_handle)
+       implicit none
+       type(prif_coarray_handle), intent(in) :: alias_handle
+     end subroutine
+
+  end interface
+
+end module alias_m

src/caffeine/alias_s.f90

@@ -0,0 +1,15 @@
+! Copyright (c), The Regents of the University of California
+! Terms of use are as specified in LICENSE.txt
+submodule(alias_m) alias_s
+
+  implicit none
+
+contains
+
+  module procedure prif_alias_create
+  end procedure
+
+  module procedure prif_alias_destroy
+  end procedure
+
+end submodule alias_s

src/caffeine/allocation_m.f90

@@ -4,7 +4,7 @@ module allocation_m
     use iso_c_binding, only: c_ptr, c_int, c_intmax_t, c_size_t, c_funptr
     implicit none
     private
-    public :: prif_allocate
+    public :: prif_allocate, prif_allocate_non_symmetric, prif_deallocate, prif_deallocate_non_symmetric
 
 
     type, public :: prif_coarray_handle
@@ -28,6 +28,31 @@ module subroutine prif_allocate( &
          character(len=:), intent(inout), allocatable, optional :: errmsg_alloc
        end subroutine
 
+       module subroutine prif_allocate_non_symmetric(size_in_bytes, allocated_memory, stat, errmsg, errmsg_alloc)
+         implicit none
+         integer(kind=c_size_t) :: size_in_bytes
+         type(c_ptr), intent(out) :: allocated_memory
+         integer(c_int), intent(out), optional :: stat
+         character(len=*), intent(inout), optional :: errmsg
+         character(len=:), intent(inout), allocatable, optional :: errmsg_alloc
+       end subroutine
+
+       module subroutine prif_deallocate(coarray_handles, stat, errmsg, errmsg_alloc)
+         implicit none
+         type(prif_coarray_handle), intent(in) :: coarray_handles(:)
+         integer(c_int), intent(out), optional :: stat
+         character(len=*), intent(inout), optional :: errmsg
+         character(len=:), intent(inout), allocatable, optional :: errmsg_alloc
+       end subroutine
+
+       module subroutine prif_deallocate_non_symmetric(mem, stat, errmsg, errmsg_alloc)
+         implicit none
+         type(c_ptr), intent(in) :: mem
+         integer(c_int), intent(out), optional :: stat
+         character(len=*), intent(inout), optional :: errmsg
+         character(len=:), intent(inout), allocatable, optional :: errmsg_alloc
+       end subroutine
+
     end interface
 
 end module allocation_m

src/caffeine/allocation_s.f90

@@ -13,4 +13,13 @@
       product(ubounds-lbounds+1)*element_length, size(ucobounds), lcobounds, ucobounds, final_func, coarray_handle%ptr)
   end procedure
 
+  module procedure prif_allocate_non_symmetric
+  end procedure
+
+  module procedure prif_deallocate
+  end procedure
+
+  module procedure prif_deallocate_non_symmetric
+  end procedure
+
 end submodule allocation_s

src/caffeine/assert/assert_m.F90

@@ -31,7 +31,7 @@ module caffeine_assert_m
 
   interface
 
-    pure module subroutine assert(assertion, description, diagnostic_data)
+    module subroutine assert(assertion, description, diagnostic_data)
       !! If assertion is .false., error-terminate with a character stop code that contains diagnostic_data if present
       implicit none
       logical, intent(in) :: assertion

src/caffeine/assert/assert_s.f90

@@ -13,7 +13,7 @@
   module procedure assert
     use caffeine_characterizable_m, only : characterizable_t
     use program_termination_m, only: prif_error_stop
-    use image_enumeration_m, only: this_image => prif_this_image
+    use image_queries_m, only: this_image => prif_this_image
 
     character(len=:), allocatable :: header, trailer
     integer :: me

src/caffeine/atomic_m.f90

@@ -0,0 +1,151 @@
+! Copyright (c), The Regents of the University of California
+! Terms of use are as specified in LICENSE.txt
+module atomic_m
+  use iso_c_binding, only: c_intptr_t, c_int
+  use iso_fortran_env, only: atomic_int_kind, atomic_logical_kind
+
+  implicit none
+  private
+  public :: prif_atomic_add, prif_atomic_and, prif_atomic_or, prif_atomic_xor, prif_atomic_cas, prif_atomic_fetch_add
+  public :: prif_atomic_fetch_and, prif_atomic_fetch_or, prif_atomic_fetch_xor, prif_atomic_define, prif_atomic_ref
+
+  interface prif_atomic_cas
+     module procedure prif_atomic_cas_int
+     module procedure prif_atomic_cas_logical
+  end interface
+
+  interface prif_atomic_define
+     module procedure prif_atomic_define_int
+     module procedure prif_atomic_define_logical
+  end interface
+
+  interface prif_atomic_ref
+     module procedure prif_atomic_ref_int
+     module procedure prif_atomic_ref_logical
+  end interface
+
+  interface
+
+     module subroutine prif_atomic_add(atom_remote_ptr, image_num, value, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(atomic_int_kind), intent(in) :: value
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_and(atom_remote_ptr, image_num, value, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(atomic_int_kind), intent(in) :: value
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_or(atom_remote_ptr, image_num, value, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(atomic_int_kind), intent(in) :: value
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_xor(atom_remote_ptr, image_num, value, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(atomic_int_kind), intent(in) :: value
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_cas_int(atom_remote_ptr, image_num, old, compare, new, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(atomic_int_kind), intent(out) :: old
+       integer(atomic_int_kind), intent(in) :: compare
+       integer(atomic_int_kind), intent(in) :: new
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_cas_logical(atom_remote_ptr, image_num, old, compare, new, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       logical(atomic_logical_kind), intent(out) :: old
+       logical(atomic_logical_kind), intent(in) :: compare
+       logical(atomic_logical_kind), intent(in) :: new
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_fetch_add(atom_remote_ptr, image_num, value, old, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(atomic_int_kind), intent(in) :: value
+       integer(atomic_int_kind), intent(out) :: old
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_fetch_and(atom_remote_ptr, image_num, value, old, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(atomic_int_kind), intent(in) :: value
+       integer(atomic_int_kind), intent(out) :: old
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_fetch_or(atom_remote_ptr, image_num, value, old, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(atomic_int_kind), intent(in) :: value
+       integer(atomic_int_kind), intent(out) :: old
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_fetch_xor(atom_remote_ptr, image_num, value, old, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(atomic_int_kind), intent(in) :: value
+       integer(atomic_int_kind), intent(out) :: old
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_define_int(atom_remote_ptr, image_num, value, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(atomic_int_kind), intent(in) :: value
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_define_logical(atom_remote_ptr, image_num, value, stat)
+       implicit none
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       logical(atomic_logical_kind), intent(in) :: value
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_ref_int(value, atom_remote_ptr, image_num, stat)
+       implicit none
+       integer(atomic_int_kind), intent(out) :: value
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+     module subroutine prif_atomic_ref_logical(value, atom_remote_ptr, image_num, stat)
+       implicit none
+       logical(atomic_logical_kind), intent(out) :: value
+       integer(c_intptr_t), intent(in) :: atom_remote_ptr
+       integer(c_int), intent(in) :: image_num
+       integer(c_int), intent(out), optional :: stat
+     end subroutine
+
+  end interface
+
+end module atomic_m

src/caffeine/atomic_s.f90

@@ -0,0 +1,51 @@
+! Copyright (c), The Regents of the University of California
+! Terms of use are as specified in LICENSE.txt
+submodule(atomic_m) atomic_s
+
+  implicit none
+
+contains
+
+  module procedure prif_atomic_add
+  end procedure
+
+  module procedure prif_atomic_and
+  end procedure
+
+  module procedure prif_atomic_or
+  end procedure
+
+  module procedure prif_atomic_xor
+  end procedure
+
+  module procedure prif_atomic_cas_int
+  end procedure
+
+  module procedure prif_atomic_cas_logical
+  end procedure
+
+  module procedure prif_atomic_fetch_add
+  end procedure
+
+  module procedure prif_atomic_fetch_and
+  end procedure
+
+  module procedure prif_atomic_fetch_or
+  end procedure
+
+  module procedure prif_atomic_fetch_xor
+  end procedure
+
+  module procedure prif_atomic_define_int
+  end procedure
+
+  module procedure prif_atomic_define_logical
+  end procedure
+
+  module procedure prif_atomic_ref_int
+  end procedure
+
+  module procedure prif_atomic_ref_logical
+  end procedure
+
+end submodule atomic_s

src/caffeine/caffeine_h_m.f90

@@ -34,7 +34,7 @@ subroutine caf_decaffeinate(exit_code) bind(C)
 
     ! _________________ Image enumeration ____________________
 
-    pure function caf_this_image() bind(C)
+    function caf_this_image() bind(C)
       !! int caf_this_image();
       import c_int
       implicit none