n</span>
<span class="nv">character</span><span class="ss">(</span><span class="nv">len</span><span class="o">=*</span><span class="ss">)</span>,<span class="nv">parameter</span>    :: <span class="nv">delimiters</span><span class="o">=</span><span class="s1">&#39;</span><span class="s"> ;,</span><span class="s1">&#39;</span>
<span class="nv">integer</span>                       :: <span class="nv">ios</span>
<span class="nv">integer</span>                       :: <span class="nv">icount</span>
<span class