obra’s Twitter Archive—№ 16,268

@starsandrobots character(len=20) function str(k) integer, intent(in) :: k write (s, *) k str = adjustl(s) end function s