ystem_unlink</span><span class="ss">(</span><span class="s1">&#39;</span><span class="s">myfile1</span><span class="s1">&#39;</span><span class="ss">)</span>
<span class="k">if</span><span class="ss">(</span><span class="nv">ierr</span>.<span class="nv">ne</span>.<span class="mi">0</span><span class="ss">)</span><span class="k">then</span>
   <span class="k">call</span> <span class="nl">system_perror</span><span class="ss">(</span><span class="s1">&#39;</span><span class="s">*demo_system_unlink*</span><span