This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Assumed size arrays and min intrinsic ?!?!?
- From: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- To: fortran at gcc dot gnu dot org
- Date: Fri, 23 Dec 2005 21:51:43 +0100
- Subject: Assumed size arrays and min intrinsic ?!?!?
Gentlemen and ditto women,
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
I get:
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 ?
Thanks for any insight.
Kind regards,
--
Toon Moene - e-mail: toon@moene.indiv.nluug.nl - phone: +31 346 214290
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
A maintainer of GNU Fortran 95: http://gcc.gnu.org/fortran/