[fortran, patch] Fix display of locus when source contains wide characters

[FX]

> Looks OK to me except for:
> 
>> -  for (; i > 0; i--)
>> +  for (; i > 0;)
> 
> Might as well just make that a while loop.

Indeed! Committed with a while loop, thanks for the review!

FX