From 8f0c71281b5dccd70a3f1d4204e3cc6bc7201ceb Mon Sep 17 00:00:00 2001

From: =?UTF-8?q?Zbigniew=20J=C4=99drzejewski-Szmek?=

 <zbyszek@arm03-packager01.cloud.fedoraproject.org>

Date: Wed, 28 Aug 2019 10:57:55 +0000

Subject: [PATCH] Drop real128

https://github.com/pmodels/mpich/issues/4005

---

 .../fortran/use_mpi_f08/mpi_f08_types.f90     | 24 -------------------

 1 file changed, 24 deletions(-)

diff --git a/src/binding/fortran/use_mpi_f08/mpi_f08_types.f90 b/src/binding/fortran/use_mpi_f08/mpi_f08_types.f90

index f8b0fa811..46bdf6972 100644

--- a/src/binding/fortran/use_mpi_f08/mpi_f08_types.f90

+++ b/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

-- 

2.21.0