Re: Assumed size arrays and min intrinsic ?!?!?

[Paul Thomas <paulthomas2 at wanadoo dot fr>]

Steve Kargl wrote:

> On Fri, Dec 23, 2005 at 09:51:43PM +0100, Toon Moene wrote:
>  
>
> > Compiling the following source with version 109008:
> >
> >      SUBROUTINE DHSEQR( WORK )
> >      DOUBLE PRECISION   WORK( * )
> >      EXTERNAL           DLARFX
> >      INTRINSIC          MIN
> >      WORK( 1 ) = 1.0
> >      CALL DLARFX( MIN( 1, 8 ), WORK )
> >      END
> >
> > In file dgeev_pp.f:6
> >
> >      CALL DLARFX( MIN( 1, 8 ), WORK )
> >                              1
> > Error: The upper bound in the last dimension must appear in
> > the reference to the assumed size array 'work' at (1).
> >
> > Removing line 5 or the MIN intrinsic from line 6 "fixes" this.
> >
> > This is dgeev.f (after removing some 5500+ lines) from LAPACK.
> >
> > PaulT, might this be related to a recent patch concering assumed size
> > arrays by you ?
> >    
>
> More than just the MIN intrinsic is stumbling into this problem.
> In watching my private test suite compile, it appears that LAPACK
> is hitting a whole slew of these errors.
>
>  
Guilty as charged; I will remove the assumed size test from the 
intrinsics altogether. It obviously needs more work.

I am sorry about that.

Paul