X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/9b73466ada27682d1729f394549479da83ef4a99..bb12a168512ced7a0f1e4924d367c87ed7c22d1c:/teshsuite/smpi/mpich3-test/f77/comm/commerrf.f?ds=sidebyside diff --git a/teshsuite/smpi/mpich3-test/f77/comm/commerrf.f b/teshsuite/smpi/mpich3-test/f77/comm/commerrf.f index e58337f29f..26a06d4b30 100644 --- a/teshsuite/smpi/mpich3-test/f77/comm/commerrf.f +++ b/teshsuite/smpi/mpich3-test/f77/comm/commerrf.f @@ -1,4 +1,4 @@ -C -*- Mode: Fortran; -*- +C -*- Mode: Fortran; -*- C C (C) 2003 by Argonne National Laboratory. C See COPYRIGHT in top-level directory. @@ -10,7 +10,7 @@ C character*(MPI_MAX_ERROR_STRING) errstring integer comm, rlen external myerrhanfunc -CF90 INTERFACE +CF90 INTERFACE CF90 SUBROUTINE myerrhanfunc(vv0,vv1) CF90 INTEGER vv0,vv1 CF90 END SUBROUTINE @@ -52,25 +52,25 @@ C We can free our error handler now call mpi_comm_call_errhandler( comm, newerrclass, ierr ) call mpi_comm_call_errhandler( comm, code(1), ierr ) call mpi_comm_call_errhandler( comm, code(2), ierr ) - + if (callcount .ne. 3) then errs = errs + 1 - print *, ' Expected 3 calls to error handler, found ', + print *, ' Expected 3 calls to error handler, found ', & callcount else if (codesSeen(1) .ne. newerrclass) then errs = errs + 1 - print *, 'Expected class ', newerrclass, ' got ', + print *, 'Expected class ', newerrclass, ' got ', & codesSeen(1) endif if (codesSeen(2) .ne. code(1)) then errs = errs + 1 - print *, 'Expected code ', code(1), ' got ', + print *, 'Expected code ', code(1), ' got ', & codesSeen(2) endif if (codesSeen(3) .ne. code(2)) then errs = errs + 1 - print *, 'Expected code ', code(2), ' got ', + print *, 'Expected code ', code(2), ' got ', & codesSeen(3) endif endif