elemental integer function size_of_i1 (arg) integer (kind_i1), intent(in) :: arg size_of_i1 = c_sizeof(arg) end function size_of_i1