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;