use dc_string subroutine set_volatile(string) type(varying_string):: string end subroutine
subroutine set_volatile(string) type(varying_string):: string end subroutine