1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47#include "fc_feature_defs.inc"
48PROGRAM test_initialized_finalized_f
49 USE ftest_common, ONLY: init_mpi, finish_mpi, test_abort
50 USE iso_c_binding, ONLY: c_int
51 USE mpi
52 USE test_idxlist_utils, ONLY: test_err_count
55 IMPLICIT NONE
56 CHARACTER(len=*), PARAMETER :: filename = 'test_initialized_finalized_f.f90'
57
58 CALL init_mpi
59
61 CALL test_abort("ERROR: unexpected library state", filename, __line__)
62
64
66 CALL test_abort("ERROR: unexpected library state", filename, __line__)
67
69
71 CALL test_abort("ERROR: unexpected library state", filename, __line__)
72
73 IF (test_err_count() /= 0_c_int) &
74 CALL test_abort("non-zero error count!", filename, __line__)
75 CALL finish_mpi
76
77END PROGRAM test_initialized_finalized_f
78
79
80
81
82
83
84
85
86
void xt_initialize(MPI_Comm default_comm)