text: module inc
  
  contains
  
  integer(c_int) function f_inc(i) result(r) bind(c)
      use add
      use iso_c_binding, only: c_int
      integer(c_int), value :: i
      print *, 'f_inc()'
      r = f_add(i, 1)
  end
  
  end
  