Fix unused dummy argument warnings

Author: cschwan

examples/fortran/Makefile

@@ -1,5 +1,5 @@
 FC = gfortran
-FFLAGS = -Wall -Wextra -O0 -g -ffree-line-length-none -Wno-unused-dummy-argument
+FFLAGS = -Wall -Wextra -O0 -g -ffree-line-length-none
 PINEAPPL_LIBS != pkg-config pineappl_capi --libs
 LHAPDF_LIBS != pkg-config lhapdf --libs
 

examples/fortran/lhapdf_example-deprecated.f90

@@ -58,6 +58,9 @@ function xfx_test1(pdg_id, x, q2, state) bind(c)
         type(c_ptr), value, intent(in)        :: state
         real(c_double)                        :: xfx_test1
 
+        ! ignore unused argument
+        associate(state => state); end associate
+
         call lhapdf_xfxq2(0, 0, pdg_id, x, q2, xfx_test1)
     end function
 
@@ -87,6 +90,9 @@ function alphas_test1(q2, state) bind(c)
         type(c_ptr), value, intent(in)    :: state
         real(c_double)                    :: alphas_test1
 
+        ! ignore unused argument
+        associate(state => state); end associate
+
         call lhapdf_alphasq2(0, 0, q2, alphas_test1)
     end function
 

examples/fortran/test-deprecated.f90

@@ -190,6 +190,11 @@ function xfx1_test(pdg_id, x, q2, state) bind(c)
         type(c_ptr), value, intent(in)        :: state
         real(c_double)                        :: xfx1_test
 
+        ! ignore unused arguments
+        associate(pdg_id => pdg_id); end associate
+        associate(q2 => q2); end associate
+        associate(state => state); end associate
+
         xfx1_test = x
     end function
 
@@ -203,6 +208,11 @@ function xfx2_test(pdg_id, x, q2, state) bind(c)
         type(c_ptr), value, intent(in)        :: state
         real(c_double)                        :: xfx2_test
 
+        ! ignore unused arguments
+        associate(pdg_id => pdg_id); end associate
+        associate(q2 => q2); end associate
+        associate(state => state); end associate
+
         xfx2_test = -x
     end function
 
@@ -215,6 +225,9 @@ function alphas_test(q2, state) bind(c)
         type(c_ptr), value, intent(in)    :: state
         real(c_double)                    :: alphas_test
 
+        ! ignore unused argument
+        associate(state => state); end associate
+
         alphas_test = q2
     end function
 

examples/fortran/test.f90

@@ -229,6 +229,10 @@ function xfx_test(pdg_id, x, q2, state) bind(c)
         real(c_double)                        :: xfx_test
         integer, pointer                      :: state_array(:)
 
+        ! ignore unused arguments
+        associate(pdg_id => pdg_id); end associate
+        associate(q2 => q2); end associate
+
         call c_f_pointer(state, state_array, [2])
         xfx_test = merge(x, -x, state_array(1).eq.0)
     end function
@@ -243,6 +247,11 @@ function xfx1_test(pdg_id, x, q2, state) bind(c)
         type(c_ptr), value, intent(in)        :: state
         real(c_double)                        :: xfx1_test
 
+        ! ignore unused arguments
+        associate(pdg_id => pdg_id); end associate
+        associate(q2 => q2); end associate
+        associate(state => state); end associate
+
         xfx1_test = x
     end function
 
@@ -256,6 +265,11 @@ function xfx2_test(pdg_id, x, q2, state) bind(c)
         type(c_ptr), value, intent(in)        :: state
         real(c_double)                        :: xfx2_test
 
+        ! ignore unused arguments
+        associate(pdg_id => pdg_id); end associate
+        associate(q2 => q2); end associate
+        associate(state => state); end associate
+
         xfx2_test = -x
     end function
 
@@ -268,6 +282,9 @@ function alphas_test(q2, state) bind(c)
         type(c_ptr), value, intent(in)    :: state
         real(c_double)                    :: alphas_test
 
+        ! ignore unused argument
+        associate(state => state); end associate
+
         alphas_test = q2
     end function