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

Fix missing type kind specification.

parent 8419d66e
......@@ -33,16 +33,16 @@ PROGRAM perf_sparse_array_gather
CHARACTER(len=*), PARAMETER :: filename = 'perf_sparse_array_gather.f90'
LOGICAL :: check_correctness_of_exchange
INTERFACE
SUBROUTINE POSIX_EXIT(code) BIND(c, name="exit")
SUBROUTINE posix_exit(code) BIND(c, name="exit")
IMPORT :: c_int
INTEGER(c_int), VALUE, INTENT(in) :: code
END SUBROUTINE POSIX_EXIT
END SUBROUTINE posix_exit
END INTERFACE
CALL mpi_init(ierror)
IF (ierror /= mpi_success) THEN
WRITE (0, *) "MPI initialization failed"
CALL POSIX_EXIT(1)
CALL POSIX_EXIT(1_c_int)
END IF
CALL xt_initialize(mpi_comm_world)
......
......@@ -45,6 +45,7 @@
PROGRAM test_xmap_intersection_parallel
USE ftest_common, ONLY: init_mpi, finish_mpi, test_abort
USE mpi
USE iso_c_binding, ONLY: c_int
USE test_idxlist_utils, ONLY: test_err_count
USE yaxt, ONLY: xt_initialize, xt_finalize, xt_int_kind, &
xt_idxlist, xt_idxvec_new, xt_idxlist_delete, xt_xmap, &
......@@ -103,7 +104,7 @@ PROGRAM test_xmap_intersection_parallel
IF (comm_size /= 3) THEN
CALL xt_finalize
CALL finish_mpi
CALL posix_exit(77)
CALL posix_exit(77_c_int)
END IF
! parse_options(&argc, &argv);
......
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