n>  <span class="nb">iso_c_binding</span>
<span class="nb">   </span><span class="k">implicit none</span>
<span class="k">   </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">string__OUT</span>
   <span class="n">string__OUT</span><span class="o">=</span><span class="n">c_to_f_string</span><span class="p">(</span><span class="n">ptr_curses_