[patch, libfortran] Fix for PR 22217

[Steven Bosscher]

On Friday 08 July 2005 07:40, Thomas Koenig wrote:
> 2005-07-07  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
> 	    Thomas Koenig  <Thomas.Koenig@online.de>
>
> 	PR libfortran/22217
> 	* io/write.c (extract_unit):  New function; extract
> 	ints as unsigned int of the correct size.
> 	* io/write.c (write_int):  Use it.
> 	* runtime/error.c:  Adjust copyright years.
> 	Adjust size of buffer to maximum that can occur.

Looks alright.

Could you please also investigate how to avoid the badness we
currently get from running cases like,

program main
  i = -1
  print '(ZZ)',i
end program main

A g77-compiled version of this will give:
startio: error in format
apparent state: unit 6 (unnamed)
last format: (ZZ)
lately writing sequential formatted external IO
Aborted

gfortran happily runs the code and gives what appears to be a dump
from a random memory location.  Do you think we can fix this?

Gr.
Steven