Chiebot-Mirror
/
meson
mirror of https://github.com/mesonbuild/meson.git
8
0
Fork 0
Code Issues Projects Releases Wiki Activity
The Meson Build System http://mesonbuild.com/
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
8433 Commits
76 Branches
171 Tags
74 MiB
Tag: Branch: Tree: fe853ee516
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'fe853ee516'
${ noResults }
meson/test cases/frameworks/17 mpi/main.f90

31 lines
504 B
Raw Normal View History Unescape

BUGFIX: Microsoft MPI is only compatible with Intel Fortran
6 years ago
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