Commit c15971f9 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Merge redundant interface declarations.

parent ae77abec
......@@ -69,6 +69,14 @@ MODULE ftest_common
MODULE PROCEDURE icmp_3d
END INTERFACE icmp
INTERFACE
SUBROUTINE posix_exit(code) BIND(c, name="exit")
IMPORT :: c_int
INTEGER(c_int), VALUE, INTENT(in) :: code
END SUBROUTINE posix_exit
END INTERFACE
PUBLIC :: posix_exit
INTERFACE cmp_arrays
FUNCTION cmp_dbl_arrays_(asize, a, b) BIND(c, name='cmp_dbl_arrays')
......
......@@ -46,7 +46,7 @@
MODULE test_xmap_common_intercomm_parallel
USE iso_c_binding, ONLY: c_int
USE mpi
USE ftest_common, ONLY: init_mpi, finish_mpi, test_abort
USE ftest_common, ONLY: init_mpi, finish_mpi, test_abort, posix_exit
USE test_idxlist_utils, ONLY: test_err_count
USE yaxt, ONLY: xt_initialize, xt_finalize, xt_int_kind, xt_stripe, &
xi => xt_int_kind, &
......@@ -60,12 +60,6 @@ MODULE test_xmap_common_intercomm_parallel
check_allgather_analog_xmap, test_ping_pong, test_ring_1d
IMPLICIT NONE
PRIVATE
INTERFACE
SUBROUTINE POSIX_EXIT(code) BIND(c, name="exit")
IMPORT :: c_int
INTEGER(c_int), VALUE, INTENT(in) :: code
END SUBROUTINE POSIX_EXIT
END INTERFACE
INTEGER :: intra_group_comm
PUBLIC :: xmap_intercomm_parallel_test_main, intra_group_comm
CHARACTER(len=*), PARAMETER :: &
......
......@@ -43,7 +43,7 @@
! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
PROGRAM test_xmap_intersection_parallel
USE ftest_common, ONLY: init_mpi, finish_mpi, test_abort
USE ftest_common, ONLY: init_mpi, finish_mpi, test_abort, posix_exit
USE mpi
USE iso_c_binding, ONLY: c_int
USE test_idxlist_utils, ONLY: test_err_count
......@@ -73,12 +73,6 @@ PROGRAM test_xmap_intersection_parallel
INTEGER :: rank ! rank of communication partner
INTEGER, POINTER :: pos(:) ! positions to be sent/received
END TYPE test_message
INTERFACE
SUBROUTINE posix_exit(code) BIND(c, name='exit')
USE iso_c_binding, ONLY: c_int
INTEGER(c_int), VALUE, INTENT(in) :: code
END SUBROUTINE posix_exit
END INTERFACE
INTEGER, PARAMETER :: xmi_type_base = 0, xmi_type_ext = 1
INTEGER :: xmi_type
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment