[gfortran] recent change causes a regression

[Steve Kargl]

On Mon, May 24, 2004 at 12:51:42AM +0100, Paul Brook wrote:
> > I think your restrict_intrinsic rewrite is causing a regression.
> > The following compiles fine with NAG's compiler and it compiled
> > fine before the above commit.
> >
> > kargl[256] cat xx.f90
> >     subroutine box_muller_array(x1)
> >       implicit none
> >       integer, parameter :: knd = kind(1.e0)
> >       real(knd), dimension(0:), intent(out) :: x1
> >       real(knd), dimension(0:size(x1)) :: x3
> >       x3=x1
> >     end subroutine box_muller_array
> 
> Patch below fixes this by removing a couple of conditions from check_inquiry.
> The first is plain wrong. The second makes no sense, and is empirically wrong.
> 
> Tested on i686-linux. Applied to mainline.
> 

Thanks.  Yoohoo, my test suite actually has some value :-)

-- 
Steve