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
add haiku support. Because why not.
[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 1f1ec517e75daae76a7cb0ce2fa369f62a4f26bd..59cb7e447bb14400a2dd2d2179f1e1df7034d31c 100644
(file)
--- a/
teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
+++ b/
teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
@@
-10,10
+10,12
@@
integer count, datatype
integer i
integer count, datatype
integer i
-! if (datatype .ne. MPI_INTEGER) then
-! write(6,*) 'Invalid datatype passed to user_op()'
-! return
-! endif
+ if (.false.) then
+ if (datatype .ne. MPI_INTEGER) then
+ write(6,*) 'Invalid datatype passed to user_op()'
+ return
+ endif
+ endif
do i=1, count
cout(i) = cin(i) + cout(i)
do i=1, count
cout(i) = cin(i) + cout(i)