use dc_string subroutine set_volatile(string) type(VARYING_STRING):: string end subroutine type(VARYING_STRING) function itos(i) integer, intent(in):: i end function
subroutine set_volatile(string) type(VARYING_STRING):: string end subroutine
type(VARYING_STRING) function itos(i) integer, intent(in):: i end function