A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Kill trailing whitespaces in teshsuite/smpi/{isp,mpich3-test}.
[simgrid.git]
/
teshsuite
/
smpi
/
mpich3-test
/
f90
/
coll
/
exscanf90.f90
diff --git
a/teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
b/teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
index
59cb7e4
..
aeca3b5
100644
(file)
--- a/
teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
+++ b/
teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
@@
-1,5
+1,5
@@
! This file created from test/mpi/f77/coll/exscanf.f with f77tof90
! This file created from test/mpi/f77/coll/exscanf.f with f77tof90
-! -*- Mode: Fortran; -*-
+! -*- Mode: Fortran; -*-
!
! (C) 2003 by Argonne National Laboratory.
! See COPYRIGHT in top-level directory.
!
! (C) 2003 by Argonne National Laboratory.
! See COPYRIGHT in top-level directory.
@@
-9,7
+9,7
@@
integer cin(*), cout(*)
integer count, datatype
integer i
integer cin(*), cout(*)
integer count, datatype
integer i
-
+
if (.false.) then
if (datatype .ne. MPI_INTEGER) then
write(6,*) 'Invalid datatype passed to user_op()'
if (.false.) then
if (datatype .ne. MPI_INTEGER) then
write(6,*) 'Invalid datatype passed to user_op()'
@@
-32,7
+32,7
@@
allocate(inbuf(2), STAT=status)
allocate(outbuf(2), STAT=status)
errs = 0
allocate(inbuf(2), STAT=status)
allocate(outbuf(2), STAT=status)
errs = 0
-
+
call mtest_init( ierr )
!
! A simple test of exscan
call mtest_init( ierr )
!
! A simple test of exscan
@@
-59,7
+59,7
@@
endif
endif
!
endif
endif
!
-! Try a user-defined operation
+! Try a user-defined operation
!
call mpi_op_create( uop, .true., sumop, ierr )
inbuf(1) = rank
!
call mpi_op_create( uop, .true., sumop, ierr )
inbuf(1) = rank
@@
-80,7
+80,7
@@
endif
endif
call mpi_op_free( sumop, ierr )
endif
endif
call mpi_op_free( sumop, ierr )
-
+
!
! Try a user-defined operation (and don't claim it is commutative)
!
!
! Try a user-defined operation (and don't claim it is commutative)
!