Commit 3219b5b2 authored by gropp's avatar gropp
Browse files

Minor changes and additions to check some optional Fortran types

parent bd9fb9f9
......@@ -7,6 +7,11 @@ exscanf_SOURCES = exscanf.f
alltoallwf_SOURCES = alltoallwf.f
inplacef_SOURCES = inplacef.f
allredint8f_SOURCES = allredint8f.f
allredopttf_SOURCES = allredopttf.f
testing:
../../runtests -srcdir=$(srcdir) -tests=testlist \
-mpiexec=$(bindir)/mpiexec \
-xmlfile=summary.xml
../util/mtestf.o:
(cd ../util && $(MAKE) mtestf.o)
......@@ -13,7 +13,7 @@ C
call mtest_init( ierr )
C
C A simple test of exscan
C A simple test of allreduce for the optional integer*8 type
call mpi_allreduce(inbuf, outbuf, 1, MPI_INTEGER8, MPI_SUM,
& MPI_COMM_WORLD, ierr)
......
C -*- Mode: Fortran; -*-
C
C (C) 2007 by Argonne National Laboratory.
C See COPYRIGHT in top-level directory.
C
program main
implicit none
include 'mpif.h'
integer*8 inbuf, outbuf
double complex zinbuf, zoutbuf
integer wsize
integer errs, ierr
errs = 0
call mtest_init( ierr )
call mpi_comm_size( MPI_COMM_WORLD, wsize, ierr )
C
C A simple test of allreduce for the optional integer*8 type
inbuf = 1
outbuf = 0
call mpi_allreduce(inbuf, outbuf, 1, MPI_INTEGER8, MPI_SUM,
& MPI_COMM_WORLD, ierr)
if (outbuf .ne. wsize ) then
errs = errs + 1
print *, "result wrong for sum with integer*8 = got ", outbuf,
& " but should have ", wsize
endif
zinbuf = (1,1)
zoutbuf = (0,0)
call mpi_allreduce(zinbuf, zoutbuf, 1, MPI_DOUBLE_COMPLEX,
& MPI_SUM, MPI_COMM_WORLD, ierr)
if (dreal(zoutbuf) .ne. wsize ) then
errs = errs + 1
print *, "result wrong for sum with double complex = got ",
& outbuf, " but should have ", wsize
endif
if (dimag(zoutbuf) .ne. wsize ) then
errs = errs + 1
print *, "result wrong for sum with double complex = got ",
& outbuf, " but should have ", wsize
endif
call mtest_finalize( errs )
call mpi_finalize( ierr )
end
......@@ -13,5 +13,9 @@ typem2f_SOURCES = typem2f.f
gaddressf_SOURCES = gaddressf.f
packef_SOURCES = packef.f
testing:
../../runtests -srcdir=$(srcdir) -tests=testlist \
-mpiexec=$(bindir)/mpiexec \
-xmlfile=summary.xml
../util/mtestf.o:
(cd ../util && $(MAKE) mtestf.o)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment