revap types, step 1

[Steve Kargl]

On Thu, Aug 26, 2004 at 10:39:51AM -0700, Richard Henderson wrote:
> On Thu, Aug 26, 2004 at 05:52:56PM +0200, Tobias Schl?ter wrote:
> > (2) A nonpointer scalar object of type double precision real or default
> > complex occupies two contiguous numeric storage units;
> 
> What does this mean?  That DOUBLE PRECISION should *claim* two
> storage units even if it doesn't use it?

Yes.  If REAL takes 40 storage units, then DOUBLE PRECISION
must occupy 80 storage units.  If you have

   real x(2)
   double precision y
   equilavence(x,y)

then the 2-element array x and y occupy the exact same storage
space.

Incidently, the behavior of the -r8 option is outside the scope
of the Fortran standard.  It typically means that all REAL variables
are promoted to DOUBLE PRECISION.  It does not necessarily
include the promotion of all DOUBLE PRECISION variables to 
a QUAD precision. 

-- 
Steve