diff options
| author | Michael Hirsch, Ph.D <10931741+scivision@users.noreply.github.com> | 2019-04-05 16:48:20 -0400 |
|---|---|---|
| committer | Jussi Pakkanen <jpakkane@gmail.com> | 2019-04-05 23:48:20 +0300 |
| commit | 42a04f7e230d3b8d4f5c46ffccf01ca7dfb94ef2 (patch) | |
| tree | 18590baff0a379bb5d12f7197df045942ef364ad /test cases/frameworks/17 mpi/main.f90 | |
| parent | 4e939bcf8ad7e52853877f39b582ce0ed7cdd423 (diff) | |
| download | meson-42a04f7e230d3b8d4f5c46ffccf01ca7dfb94ef2.tar.gz | |
BUGFIX: Microsoft MPI is only compatible with Intel Fortran
Diffstat (limited to 'test cases/frameworks/17 mpi/main.f90')
| -rw-r--r-- | test cases/frameworks/17 mpi/main.f90 | 51 |
1 files changed, 30 insertions, 21 deletions
diff --git a/test cases/frameworks/17 mpi/main.f90 b/test cases/frameworks/17 mpi/main.f90 index d379e96f8..b5666e899 100644 --- a/test cases/frameworks/17 mpi/main.f90 +++ b/test cases/frameworks/17 mpi/main.f90 @@ -1,21 +1,30 @@ -program mpitest - implicit none - include 'mpif.h' - logical :: flag - integer :: ier - call MPI_Init(ier) - if (ier /= 0) then - print *, 'Unable to initialize MPI: ', ier - stop 1 - endif - call MPI_Initialized(flag, ier) - if (ier /= 0) then - print *, 'Unable to check MPI initialization state: ', ier - stop 1 - endif - call MPI_Finalize(ier) - if (ier /= 0) then - print *, 'Unable to finalize MPI: ', ier - stop 1 - endif -end program mpitest +use, intrinsic :: iso_fortran_env, only: stderr=>error_unit +use mpi + +implicit none + +logical :: flag +integer :: ier + +call MPI_Init(ier) + +if (ier /= 0) then + write(stderr,*) 'Unable to initialize MPI', ier + stop 1 +endif + +call MPI_Initialized(flag, ier) +if (ier /= 0) then + write(stderr,*) 'Unable to check MPI initialization state: ', ier + stop 1 +endif + +call MPI_Finalize(ier) +if (ier /= 0) then + write(stderr,*) 'Unable to finalize MPI: ', ier + stop 1 +endif + +print *, "OK: Fortran MPI" + +end program |