function int_to_string(value) result(text) integer, intent(in) :: value character(len=32) :: text write(text,'(i0)') value end function int_to_string