an class="nt">i</span><span class="o">+</span><span class="nt">1</span><span class="o">))</span><span class="nt">then</span><span class="w"></span>
<span class="w">         </span><span class="nt">write</span><span class="o">(*,*)</span><span class="s1">&#39;Error in sorting strings a-z&#39;</span><span class="w"></span>
<span class="w">      </span><span class="nt">endif</span><span class="w"></span>
<span class="w">   </span><span class="nt">enddo</span><span class="w"></span>
<span class="nt">end</span><