ass="ss">)</span><span class="o">//</span><span class="s1">&#39;</span><span class="s">=</span><span class="s1">&#39;</span>,<span class="nv">dv</span>,<span class="nv">errnum</span>
 <span class="nv">enddo</span>
 <span class="nv">write</span><span class="ss">(</span><span class="o">*</span>,<span class="o">*</span><span class="ss">)</span><span class="s2">&quot;</span><span class="s">Extended intrinsics</span><span class="s2">&quot;</span>
 <span class="nv">write</span><span class="ss">(</span><span class