regression in list directed write

[Andrew Pinski]

On Jan 10, 2005, at 10:12 AM, Paul Thomas wrote:

> In the course of testing NAMELIST to death, I noticed that the 
> list-directed write of NaN and Infinity has broken between 10th 
> October and now.   This is now posted as bug 19363.
>
> program test_list
>  real x , y
>  x = 0.0
>  y = 0.0
>  write(*,*,iostat=ier) x /y
>  x = 1.0
>  write(*,*,iostat=ier) x /y
> end program test_list
>

This works for me on powerpc-darwin with a compiler built yesterday.
As I asked in the bug report, what target is this on?

-- Pinski