X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/f4b7b8e6ce0fd35fc2ada5f5c06d212bcd2199c8..bb12a168512ced7a0f1e4924d367c87ed7c22d1c:/teshsuite/smpi/mpich3-test/f77/pt2pt/dummyf.f diff --git a/teshsuite/smpi/mpich3-test/f77/pt2pt/dummyf.f b/teshsuite/smpi/mpich3-test/f77/pt2pt/dummyf.f index 7524a194e0..7cac7ba65a 100644 --- a/teshsuite/smpi/mpich3-test/f77/pt2pt/dummyf.f +++ b/teshsuite/smpi/mpich3-test/f77/pt2pt/dummyf.f @@ -1,14 +1,14 @@ -C -*- Mode: Fortran; -*- +C -*- Mode: Fortran; -*- C C (C) 2010 by Argonne National Laboratory. C See COPYRIGHT in top-level directory. C C C This file is used to disable certain compiler optimizations that -C can cause incorrect results with the test in greqf.f. It provides a +C can cause incorrect results with the test in greqf.f. It provides a C point where extrastate may be modified, limiting the compilers ability C to move code around. -C The include of mpif.h is not needed in the F77 case but in the +C The include of mpif.h is not needed in the F77 case but in the C F90 case it is, because in that case, extrastate is defined as an C integer (kind=MPI_ADDRESS_KIND), and the script that creates the C F90 tests from the F77 tests looks for mpif.h