class="nv">allocate</span><span class="ss">(</span><span class="nv">irngt</span><span class="ss">(</span><span class="nv">size</span><span class="ss">(</span><span class="nv">INVALS</span><span class="ss">)))</span>
   <span class="nv">write</span><span class="ss">(</span><span class="o">*</span>,<span class="nv">g</span><span class="ss">)</span><span class="s1">&#39;</span><span class="s">ORIGINAL:</span><span class="s1">&#39;</span>,<span class="nv">INVALS</span>
   <span class="k">call</span> <span class