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
/
f77
/
info
/
infotest2f.f
diff --git
a/teshsuite/smpi/mpich3-test/f77/info/infotest2f.f
b/teshsuite/smpi/mpich3-test/f77/info/infotest2f.f
index
204897c
..
4b8e9df
100644
(file)
--- a/
teshsuite/smpi/mpich3-test/f77/info/infotest2f.f
+++ b/
teshsuite/smpi/mpich3-test/f77/info/infotest2f.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.
C
C (C) 2003 by Argonne National Laboratory.
C See COPYRIGHT in top-level directory.
@@
-23,7
+23,7
@@
C
errs = 0
call mtest_init( ierr )
errs = 0
call mtest_init( ierr )
-
+
C Note that the MPI standard requires that leading an trailing blanks
C are stripped from keys and values (Section 4.10, The Info Object)
C
C Note that the MPI standard requires that leading an trailing blanks
C are stripped from keys and values (Section 4.10, The Info Object)
C
@@
-64,8
+64,8
@@
C keys are number from 0 to n-1, even in Fortran (Section 4.10)
if (myvalue(ln:ln) .ne. ' ') then
if (vlen .ne. ln) then
errs = errs + 1
if (myvalue(ln:ln) .ne. ' ') then
if (vlen .ne. ln) then
errs = errs + 1
- print *, ' length is ', ln,
- & ' but valuelen gave ', vlen,
+ print *, ' length is ', ln,
+ & ' but valuelen gave ', vlen,
& ' for key ', mykey
endif
goto 100
& ' for key ', mykey
endif
goto 100
@@
-102,30
+102,30
@@
C flag to false
print *, ' Found unexpected key ', keys(i)
endif
myvalue = 'A test'
print *, ' Found unexpected key ', keys(i)
endif
myvalue = 'A test'
- call mpi_info_get( i2, keys(i), MPI_MAX_INFO_VAL,
+ call mpi_info_get( i2, keys(i), MPI_MAX_INFO_VAL,
& myvalue, flag, ierr )
if (flag) then
errs = errs + 1
print *, ' Found unexpected key in MPI_Info_get ', keys(i)
& myvalue, flag, ierr )
if (flag) then
errs = errs + 1
print *, ' Found unexpected key in MPI_Info_get ', keys(i)
- else
+ else
if (myvalue .ne. 'A test') then
errs = errs + 1
print *, ' Returned value overwritten, is now ', myvalue
endif
endif
if (myvalue .ne. 'A test') then
errs = errs + 1
print *, ' Returned value overwritten, is now ', myvalue
endif
endif
-
+
enddo
do i=3,6
myvalue = ' '
enddo
do i=3,6
myvalue = ' '
- call mpi_info_get( i2, keys(i), MPI_MAX_INFO_VAL,
+ call mpi_info_get( i2, keys(i), MPI_MAX_INFO_VAL,
& myvalue, flag, ierr )
if (.not. flag) then
errs = errs + 1
print *, ' Did not find key ', keys(i)
& myvalue, flag, ierr )
if (.not. flag) then
errs = errs + 1
print *, ' Did not find key ', keys(i)
- else
+ else
if (myvalue .ne. values(i)) then
errs = errs + 1
if (myvalue .ne. values(i)) then
errs = errs + 1
- print *, ' Found wrong value (', myvalue, ') for key ',
+ print *, ' Found wrong value (', myvalue, ') for key ',
& keys(i)
endif
endif
& keys(i)
endif
endif