Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!unmvax!brainerd
From: brainerd@unmvax.unm.edu (Walt Brainerd)
Newsgroups: comp.lang.fortran
Subject: Re: extensions to logical variables
Summary: Will be standard when Fortran 88 is adopted
Message-ID: <64@unmvax.unm.edu>
Date: 29 Apr 89 16:23:29 GMT
References: <31660@stellar.UUCP> <31555@sgi.SGI.COM> <MAINE.89Apr28085934@drynix.dfrf.nasa.gov>
Organization: University of New Mexico at Albuquerque
Lines: 18

In article <MAINE.89Apr28085934@drynix.dfrf.nasa.gov>, maine@drynix.dfrf.nasa.gov writes:
> 
> While acknowledging that this is all non-standard and non-portable and
> ...
> what's a guy to do?  My "favorite" system, the Elxsi, allows
> an integer*1 type (signed), which is admitedly still non-standard, but

The kind parameter for logicals (and all other intrinsic data types)
proposed for Fortran 8?
will allow the implementor to do this according to standard,
and if the programmer is careful, allow it to be used in a portable way.

> "ipacked = ((i1*256+i2)*256+i3)*256+i4" 
 
This ain't gonna work too well on a decimal machine!
Of course,  the author acknowledged that this is nonstandard
and nonportable.  I hope there are fewer and fewer who know this,
but I used to run into lots of Fortran programmers who didn't!