Translation
elemental impure subroutine print_prompt(this) class(Translation), intent(inout) :: this print "('prompt: ',A)", trim(this%prompt) end subroutine print_prompt