Skip to content

Commit d32ce82

Browse files
committed
Fix -Wc-binding-type warning
1 parent ef24bad commit d32ce82

1 file changed

Lines changed: 6 additions & 6 deletions

File tree

examples/fortran/pineappl.f90

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -90,7 +90,7 @@ module pineappl
9090

9191
! The Kinematics struct is a tuple-like struct in the PineAPPL Rust code, which is realized as a C union. Fortran does not support unions, but fortunately the union is only for storing ints, so we just use an integer variable for `index`
9292
type, bind(c) :: pineappl_kinematics
93-
integer(kind(pineappl_kinematics_tag)) :: tag
93+
integer(c_int) :: tag
9494
integer(c_size_t) :: index
9595
end type
9696

@@ -101,12 +101,12 @@ module pineappl
101101
end type
102102

103103
type, bind(c) :: pineappl_scale_func_form
104-
integer(kind(pineappl_scale_func_form_tag)) :: tag
104+
integer(c_int) :: tag
105105
type(pineappl_scale_func_form_body) :: body
106106
end type
107107

108108
type, bind(c) :: pineappl_conv
109-
integer(kind(pineappl_conv_type)) :: conv_type
109+
integer(c_int) :: conv_type
110110
integer(c_int32_t) :: pid
111111
end type
112112

@@ -115,9 +115,9 @@ module pineappl
115115
real(c_double) :: max
116116
integer(c_size_t) :: nodes
117117
integer(c_size_t) :: order
118-
integer(kind(pineappl_reweight_meth)) :: reweighting_method
119-
integer(kind(pineappl_map)) :: mapping
120-
integer(kind(pineappl_interp_meth)) :: interpolation_method
118+
integer(c_int) :: reweighting_method
119+
integer(c_int) :: mapping
120+
integer(c_int) :: interpolation_method
121121
end type
122122

123123
type :: pineappl_xfx

0 commit comments

Comments
 (0)