Commit e67121d3 authored by Moritz Hanke's avatar Moritz Hanke

fixup: adds missing TARGET

parent 4981b0ed
......@@ -238,7 +238,7 @@ CONTAINS
SUBROUTINE test_xmap_dble(src_ids, num_src_ids, dst_ids, num_dst_ids, &
id_size, xmap_new, comm)
DOUBLE PRECISION, INTENT(in) :: src_ids(:), dst_ids(:)
DOUBLE PRECISION, TARGET, INTENT(in) :: src_ids(:), dst_ids(:)
INTEGER, INTENT(in) :: num_src_ids, num_dst_ids, id_size
INTERFACE
FUNCTION xmap_new(src_ids, num_src_ids, dst_ids, num_dst_ids, id_size, &
......
......@@ -320,7 +320,7 @@ CONTAINS
END INTERFACE
INTEGER(xt_int_kind), INTENT(in) :: num_indices_per_rank
INTEGER, INTENT(inout) :: comm
DOUBLE PRECISION, ALLOCATABLE :: src_ids(:), dst_ids(:)
DOUBLE PRECISION, ALLOCATABLE, TARGET :: src_ids(:), dst_ids(:)
TYPE(xt_idxlist) :: src_idxlist, dst_idxlist
TYPE(xt_xmap) :: xmap, xmap_copy
TYPE(xt_stripe) :: src_index_stripe(1), dst_index_stripe(1)
......@@ -505,7 +505,7 @@ CONTAINS
INTEGER :: comm_rank, comm_size, remote_size, ierror
INTEGER(i8) :: i, global_num_ids, local_num_ids
TYPE(xt_stripe) :: stripe_in_local_group(1)
DOUBLE PRECISION, ALLOCATABLE :: ids_in_local_group(:)
DOUBLE PRECISION, ALLOCATABLE, TARGET :: ids_in_local_group(:)
TYPE(xt_xmap) :: xmap, xmap_copy
CALL mpi_comm_rank(comm, comm_rank, ierror)
IF (ierror /= mpi_success) &
......
......@@ -278,7 +278,7 @@ CONTAINS
INTEGER, INTENT(inout) :: comm
INTEGER, INTENT(in) :: num_indices_per_rank
INTEGER :: i
DOUBLE PRECISION, ALLOCATABLE :: src_ids(:), dst_ids(:)
DOUBLE PRECISION, TARGET, ALLOCATABLE :: src_ids(:), dst_ids(:)
TYPE(xt_xmap) :: xmap, xmap_copy
INTEGER :: comm_size, comm_rank
LOGICAL :: is_inter
......@@ -405,7 +405,7 @@ CONTAINS
END INTERFACE
INTEGER, INTENT(inout) :: comm
! test in which each process talks WITH two other processes
DOUBLE PRECISION :: src_ids(1), dst_ids(2), temp
DOUBLE PRECISION, TARGET :: src_ids(1), dst_ids(2), temp
TYPE(xt_xmap) :: xmap, xmap_copy
INTEGER :: comm_size, comm_rank
LOGICAL :: is_inter
......@@ -549,7 +549,7 @@ CONTAINS
!src_ids(index, rank)
INTEGER :: i, j, k
#ifdef __xlC__
DOUBLE PRECISION, PARAMETER :: src_ids(20, 0:1) = RESHAPE((/ &
DOUBLE PRECISION, TARGET :: src_ids(20, 0:1) = RESHAPE((/ &
& 1d+0, 2d+0, 3d+0, 4d+0, 5d+0, &
& 9d+0, 10d+0, 11d+0, 12d+0, 13d+0, &
& 17d+0, 18d+0, 19d+0, 20d+0, 21d+0, &
......@@ -560,12 +560,12 @@ CONTAINS
& 28d+0, 29d+0, 30d+0, 31d+0, 32d+0 /), &
(/ 20, 2 /))
#else
DOUBLE PRECISION, PARAMETER :: src_ids(20, 0:1) = RESHAPE((/ &
DOUBLE PRECISION, TARGET :: src_ids(20, 0:1) = RESHAPE((/ &
(((DBLE(i + j * 8 + k * 3), i = 1, 5), j = 0, 3), &
k = 0, 1) /), (/ 20, 2 /))
#endif
! dst_index_list(index,rank)
DOUBLE PRECISION, PARAMETER :: dst_ids(20, 0:1) = RESHAPE((/ &
DOUBLE PRECISION, TARGET :: dst_ids(20, 0:1) = RESHAPE((/ &
10d+0, 15d+0, 14d+0, 13d+0, 12d+0, &
15d+0, 10d+0, 11d+0, 12d+0, 13d+0, &
23d+0, 18d+0, 19d+0, 20d+0, 21d+0, &
......@@ -700,7 +700,7 @@ CONTAINS
END INTERFACE
INTEGER, INTENT(in) :: ping_rank, pong_rank
INTEGER, INTENT(inout) :: comm
DOUBLE PRECISION, PARAMETER :: &
DOUBLE PRECISION, TARGET :: &
id_list(5) = (/ 0d+0, 1d+0, 2d+0, 3d+0, 4d+0 /)
INTEGER :: num_src_ids, num_dst_ids
TYPE(xt_xmap) :: xmap, xmap_copy
......
Markdown is supported
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