The SGI compiler (for their Unix platform) gives: lbound(typ%in), ubound(typ%in) 1, 5 lbound(pt_1), ubound(pt_1) 1, 5 Catherine Sebastián Gimeno García wrote: > Hello, > > just for completion ... > > Compiling the code of Bertrand with the fortran90 compiler PGI 3.2 I got: > > lbound(typ%in), ubound(typ%in) 0 4 > lbound(pt_1), ubound(pt_1) 0 4 > > Sebastian > > Roland Schilling wrote: > > Hi Bertrand, > > > > I tried your code on the follwing compilers: NAG 4.2, Intel 8.1 > > and 9.0, IBM xlf, Sun 6.2, Lahey-Fujitsu 6.2d and GNU g95. All > > are giving the same result, namely > > > > lbound(typ%in), ubound(typ%in) 1 5 > > lbound(pt_1), ubound(pt_1) 1 5 > > > > except for the GNU g95 which gives > > > > lbound(typ%in), ubound(typ%in) 1 5 > > lbound(pt_1), ubound(pt_1) 0 4 > > > > Which compilers did you try, and with which results? > > > > Roland > > > > +----------------------------------------------------------------------+ > > | Roland Schilling Home-Office: +49(89)32929-670 | > > | Max-Planck-Institut für Gravitationsphysik | > > | -- Albert-Einstein-Institut -- | > > | D-85748 Garching E-mail: [log in to unmask] | > > | Germany http://www.geo600.uni-hannover.de | > > +----------------------------------------------------------------------+ -- ------------------------------------------------------------------------- Catherine Moroney phone : (818) 393-3392 Jet Propulsion Laboratory fax : (818) 393-3134 MailStop 168-414 email : [log in to unmask] 4800 Oak Grove Drive Pasadena, CA 91109-8099