forked from pool/mvapich2
Nicolas Morey
13e60bd8b4
- mrail-fix-incompatible-pointer-issues.patch - util-add-missing-include.patch - psm-add-missing-declaration.patch - Refresh 0001-Drop-real128.patch to work with patch -p0 - Switch to autopatch OBS-URL: https://build.opensuse.org/package/show/science:HPC/mvapich2?expand=0&rev=103
71 lines
2.4 KiB
Diff
71 lines
2.4 KiB
Diff
commit d08634eff711fd6c68bc197aec538a9f15a067eb
|
|
Author: Nicolas Morey-Chaisemartin <nmoreychaisemartin@suse.com>
|
|
Date: Fri Jun 5 10:07:37 2020 +0200
|
|
|
|
0001 Drop real128
|
|
|
|
See https://github.com/pmodels/mpich/issues/4005
|
|
|
|
Signed-off-by: Nicolas Morey-Chaisemartin <nmoreychaisemartin@suse.com>
|
|
|
|
diff --git src/binding/fortran/use_mpi_f08/mpi_f08_types.f90 src/binding/fortran/use_mpi_f08/mpi_f08_types.f90
|
|
index f8b0fa811e01..46bdf6972dde 100644
|
|
--- src/binding/fortran/use_mpi_f08/mpi_f08_types.f90
|
|
+++ src/binding/fortran/use_mpi_f08/mpi_f08_types.f90
|
|
@@ -248,10 +248,8 @@ interface MPI_Sizeof
|
|
module procedure MPI_Sizeof_xint64
|
|
module procedure MPI_Sizeof_xreal32
|
|
module procedure MPI_Sizeof_xreal64
|
|
- module procedure MPI_Sizeof_xreal128
|
|
module procedure MPI_Sizeof_xcomplex32
|
|
module procedure MPI_Sizeof_xcomplex64
|
|
- module procedure MPI_Sizeof_xcomplex128
|
|
end interface
|
|
|
|
private :: MPI_Sizeof_character
|
|
@@ -263,10 +261,8 @@ private :: MPI_Sizeof_xint32
|
|
private :: MPI_Sizeof_xint64
|
|
private :: MPI_Sizeof_xreal32
|
|
private :: MPI_Sizeof_xreal64
|
|
-private :: MPI_Sizeof_xreal128
|
|
private :: MPI_Sizeof_xcomplex32
|
|
private :: MPI_Sizeof_xcomplex64
|
|
-private :: MPI_Sizeof_xcomplex128
|
|
|
|
contains
|
|
|
|
@@ -350,16 +346,6 @@ subroutine MPI_Sizeof_xreal64 (x, size, ierror)
|
|
ierror = 0
|
|
end subroutine MPI_Sizeof_xreal64
|
|
|
|
-subroutine MPI_Sizeof_xreal128 (x, size, ierror)
|
|
- use,intrinsic :: iso_fortran_env, only: real128
|
|
- real(real128),dimension(..) :: x
|
|
- integer, intent(out) :: size
|
|
- integer, optional, intent(out) :: ierror
|
|
-
|
|
- size = storage_size(x)/8
|
|
- ierror = 0
|
|
-end subroutine MPI_Sizeof_xreal128
|
|
-
|
|
subroutine MPI_Sizeof_xcomplex32 (x, size, ierror)
|
|
use,intrinsic :: iso_fortran_env, only: real32
|
|
complex(real32),dimension(..) :: x
|
|
@@ -380,16 +366,6 @@ subroutine MPI_Sizeof_xcomplex64 (x, size, ierror)
|
|
ierror = 0
|
|
end subroutine MPI_Sizeof_xcomplex64
|
|
|
|
-subroutine MPI_Sizeof_xcomplex128 (x, size, ierror)
|
|
- use,intrinsic :: iso_fortran_env, only: real128
|
|
- complex(real128),dimension(..) :: x
|
|
- integer, intent(out) :: size
|
|
- integer, optional, intent(out) :: ierror
|
|
-
|
|
- size = storage_size(x)/8
|
|
- ierror = 0
|
|
-end subroutine MPI_Sizeof_xcomplex128
|
|
-
|
|
subroutine MPI_Status_f2f08(f_status, f08_status, ierror)
|
|
integer, intent(in) :: f_status(MPI_STATUS_SIZE)
|
|
type(MPI_Status), intent(out) :: f08_status
|