[patch, libfortran] Fix for PR 22217

[Thomas Koenig]

On Fri, Jul 08, 2005 at 07:57:19AM +0200, Steven Bosscher wrote:

> 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
 
This looks OK for me:

$ cat foo.f90
program main
  i = -1
  print '(ZZ)',i
end program main
$ gfortran foo.f90
 In file foo.f90:3

  print '(ZZ)',i
               1
Warning: Nonnegative width required in format string at (1)
$ ./a.out
At line 3 of file foo.f90
Fortran runtime error: Nonnegative width required in format
(ZZ)
  ^

	Thomas