From 0e211d5cfe30c18f6ff1ba9aee063ddfa66b3cd8 Mon Sep 17 00:00:00 2001 From: Rainer Keller Date: Mon, 23 May 2005 11:25:24 +0000 Subject: [PATCH] Small buglet found by nightly built. This commit was SVN r5812. --- src/datatype/dt_module.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/datatype/dt_module.c b/src/datatype/dt_module.c index 94c7e1e009..5085812df4 100644 --- a/src/datatype/dt_module.c +++ b/src/datatype/dt_module.c @@ -180,7 +180,7 @@ OMPI_DECLSPEC ompi_datatype_t ompi_mpi_complex16 = INIT_BASIC_FORTRAN_TYPE( DT_C OMPI_DECLSPEC ompi_datatype_t ompi_mpi_complex16 = INIT_BASIC_TYPE( DT_UNAVAILABLE, COMPLEX16 ); #endif #if OMPI_HAVE_FORTRAN_REAL16 && OMPI_HAVE_FORTRAN_COMPLEX32 -OMPI_DECLSPEC ompi_datatype_t ompi_mpi_complex32 = INIT_BASIC_FORTRAN_TYPE( DT_COMPLEX_LONG_DOUBLE, COMPLEX32, OMPI_SIZEOF_COMPLEX32, OMPI_ALIGNMENT_FORTRAN_COMPLEX32, DT_FLAG_DATA_COMPLEX ); +OMPI_DECLSPEC ompi_datatype_t ompi_mpi_complex32 = INIT_BASIC_FORTRAN_TYPE( DT_COMPLEX_LONG_DOUBLE, COMPLEX32, OMPI_SIZEOF_FORTRAN_COMPLEX32, OMPI_ALIGNMENT_FORTRAN_COMPLEX32, DT_FLAG_DATA_COMPLEX ); #else OMPI_DECLSPEC ompi_datatype_t ompi_mpi_complex32 = INIT_BASIC_TYPE( DT_UNAVAILABLE, COMPLEX32 ); #endif