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.

22 lines
461 B

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