anchor.diff:              integer(kind=c_int), intent(in) :: num_iter
               integer(kind=c_int), intent(in) :: chunk_size
               integer(kind=c_int), intent(in) :: num_thread
  -            integer(kind=c_int) :: norm(*)
  +            type(c_ptr) :: norm
           end function geopm_omp_sched_static_norm
   
           integer(kind=c_int) function geopm_progress_threaded_min(num_iter, chunk_size, num_thread, min) bind(C)
  
positive.code:             integer(kind=c_int), intent(in) :: num_iter
              integer(kind=c_int), intent(in) :: chunk_size
              integer(kind=c_int), intent(in) :: num_thread
              integer(kind=c_int) :: min(*)
          end function geopm_progress_threaded_min
  
          integer(kind=c_int) function geopm_progress_threaded_sum(num_iter, chunk_size, num_thread, sum) bind(C)
  
negative.code:             integer(kind=c_int), intent(in) :: num_iter
              integer(kind=c_int), intent(in) :: chunk_size
              integer(kind=c_int), intent(in) :: num_thread
              type(c_ptr) :: sum
          end function geopm_progress_threaded_sum
  
      end interface
  