Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Rob Latham
MPICH-BlueGene
Commits
b1820e55
Commit
b1820e55
authored
Apr 22, 2015
by
Jeff Hammond
Committed by
Junchao Zhang
Apr 30, 2015
Browse files
add comments and double precision cases
Signed-off-by:
Junchao Zhang
<
jczhang@mcs.anl.gov
>
parent
8f1763f9
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/mpi/f90/f90types/createf90types.c
View file @
b1820e55
...
...
@@ -11,7 +11,8 @@
#include <string.h>
#include "mpitest.h"
static
int
cases
[
3
][
2
]
=
{{
3
,
10
},{
3
,
MPI_UNDEFINED
},{
MPI_UNDEFINED
,
10
}};
static
int
cases
[
6
][
2
]
=
{{
3
,
10
},{
3
,
MPI_UNDEFINED
},{
MPI_UNDEFINED
,
10
},
{
7
,
30
},{
7
,
MPI_UNDEFINED
},{
MPI_UNDEFINED
,
30
}};
/*
static char MTEST_Descrip[] = "Test the routines to access the Fortran 90 datatypes from C";
...
...
@@ -149,16 +150,16 @@ int main( int argc, char *argv[] )
for
(
i
=
0
;
i
<
nLoop
;
i
++
)
{
/* These should be a valid type similar to MPI_REAL */
for
(
j
=
0
;
j
<
3
;
j
++
)
{
/* These should be a valid type similar to MPI_REAL
and MPI_REAL8
*/
for
(
j
=
0
;
j
<
6
;
j
++
)
{
p
=
cases
[
j
][
0
];
r
=
cases
[
j
][
1
];
err
=
MPI_Type_create_f90_real
(
p
,
r
,
&
newtype
);
errs
+=
checkType
(
"REAL"
,
p
,
r
,
MPI_COMBINER_F90_REAL
,
err
,
newtype
);
}
/* These should be a valid type similar to MPI_COMPLEX */
for
(
j
=
0
;
j
<
3
;
j
++
)
{
/* These should be a valid type similar to MPI_COMPLEX
and MPI_COMPLEX8
*/
for
(
j
=
0
;
j
<
6
;
j
++
)
{
p
=
cases
[
j
][
0
];
r
=
cases
[
j
][
1
];
err
=
MPI_Type_create_f90_complex
(
p
,
r
,
&
newtype
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment