<section>
    <h2><span class="anchor" id="src"></span>Source Code</h2>
    <div class="highlight"><pre><span></span><span class="k">elemental impure function </span><span class="n">system_unlink</span><span class="p">(</span><span class="n">fname</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="w"> </span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span><span class="w"></span>

<span class="c">! ident_13=&quot;@(#) M_system system_unl