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
|