[mpich-commits] r10670 - mpich2/trunk/src/mpi/init

[gropp at mcs.anl.gov]

Author: gropp
Date: 2012-11-26 17:08:04 -0600 (Mon, 26 Nov 2012)
New Revision: 10670

Modified:
   mpich2/trunk/src/mpi/init/initthread.c
Log:
Added missing check for Fortran before test; fixes #1759

Modified: mpich2/trunk/src/mpi/init/initthread.c
===================================================================
--- mpich2/trunk/src/mpi/init/initthread.c	2012-11-26 20:50:51 UTC (rev 10669)
+++ mpich2/trunk/src/mpi/init/initthread.c	2012-11-26 23:08:04 UTC (rev 10670)
@@ -440,7 +440,9 @@
     MPIU_Assert( MPIR_Process.attrs.tag_ub >= 32767 );
 
     /* very nasty bugs will occur if this does not hold */
+#if defined(HAVE_FORTRAN_BINDING)
     MPIU_Assert(sizeof(MPI_Status) == MPIF_STATUS_SIZE*sizeof(MPI_Fint));
+#endif
 
     /* Capture the level of thread support provided */
     MPIR_ThreadInfo.thread_provided = thread_provided;