47 PROGRAM test_initialized_finalized_f
48 USE ftest_common,
ONLY: init_mpi, finish_mpi, test_abort
49 USE iso_c_binding,
ONLY: c_int
51 USE test_idxlist_utils,
ONLY: test_err_count
55 CHARACTER(len=*),
PARAMETER :: filename =
'test_initialized_finalized_f.f90'
60 CALL test_abort(
"ERROR: unexpected library state", filename, __line__)
65 CALL test_abort(
"ERROR: unexpected library state", filename, __line__)
70 CALL test_abort(
"ERROR: unexpected library state", filename, __line__)
72 IF (test_err_count() /= 0_c_int) &
73 CALL test_abort(
"non-zero error count!", filename, __line__)
76 END PROGRAM test_initialized_finalized_f
void xt_initialize(MPI_Comm default_comm)