[Bug fortran/58225] In show_locus at fortran/error.c:391 pointer beyond end of line

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58225

--- Comment #8 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
For test I have checked

1 format(i5)
print'()j'
end

I get

0000000    f   m   t   .   f   9   0   :   2   :   1   6   :  nl  nl  sp
0000020    p   r   i   n   t   '   (   )   j   '  nl  sp  sp  sp  sp  sp
0000040   sp  sp  sp  sp  sp  sp  sp  sp  sp  sp  sp   1  nl   W   a   r
0000060    n   i   n   g   :  sp   E   x   t   r   a   n   e   o   u   s
0000100   sp   c   h   a   r   a   c   t   e   r   s  sp   i   n  sp   f
0000120    o   r   m   a   t  sp   a   t  sp   (   1   )  nl            
0000135

For

print'()j'
end

I get

 print'()j'
        1
Warning: Extraneous characters in format at (1)

or

0000000    f   m   t   .   f   9   0   :   1   :   8   :  nl  nl  sp   p
0000020    r   i   n   t   '   (   )   j   '  nl  sp  sp  sp  sp  sp  sp
0000040   sp  sp   1  nl   W   a   r   n   i   n   g   :  sp   E   x   t
0000060    r   a   n   e   o   u   s  sp   c   h   a   r   a   c   t   e
0000100    r   s  sp   i   n  sp   f   o   r   m   a   t  sp   a   t  sp

(and 9 sp would be better).