- { long double ldinbuf[3], ldoutbuf[3];
- /* long double */
- ldinbuf[0] = 1;
- ldinbuf[1] = 0;
- ldinbuf[2] = rank;
-
- ldoutbuf[0] = 0;
- ldoutbuf[1] = 1;
- ldoutbuf[2] = 1;
- if (MPI_LONG_DOUBLE != MPI_DATATYPE_NULL) {
- MTestPrintfMsg( 10, "Reduce of MPI_LONG_DOUBLE\n" );
- MPI_Reduce( ldinbuf, ldoutbuf, 3, MPI_LONG_DOUBLE, MPI_MAX, 0, comm );
- if (rank == 0) {
- if (ldoutbuf[0] != 1) {
- errs++;
- fprintf( stderr, "long double MAX(1) test failed\n" );
- }
- if (ldoutbuf[1] != 0.0) {
- errs++;
- fprintf( stderr, "long double MAX(0) test failed\n" );
- }
- if (ldoutbuf[2] != size - 1) {
- errs++;
- fprintf( stderr, "long double MAX(>) test failed\n" );
- }
- }
- }
+ {
+ long double ldinbuf[3], ldoutbuf[3];
+ /* long double */
+ MTEST_VG_MEM_INIT(ldinbuf, 3* sizeof(ldinbuf[0]));
+ ldinbuf[0] = 1;
+ ldinbuf[1] = 0;
+ ldinbuf[2] = rank;
+
+ ldoutbuf[0] = 0;
+ ldoutbuf[1] = 1;
+ ldoutbuf[2] = 1;
+ if (MPI_LONG_DOUBLE != MPI_DATATYPE_NULL) {
+ MTestPrintfMsg(10, "Reduce of MPI_LONG_DOUBLE\n");
+ MPI_Reduce(ldinbuf, ldoutbuf, 3, MPI_LONG_DOUBLE, MPI_MAX, 0, comm);
+ if (rank == 0) {
+ if (ldoutbuf[0] != 1) {
+ errs++;
+ fprintf(stderr, "long double MAX(1) test failed\n");
+ }
+ if (ldoutbuf[1] != 0.0) {
+ errs++;
+ fprintf(stderr, "long double MAX(0) test failed\n");
+ }
+ if (ldoutbuf[2] != size - 1) {
+ errs++;
+ fprintf(stderr, "long double MAX(>) test failed\n");
+ }
+ }
+ }