Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uflorida!novavax!hcx1!hcx2!bill
From: bill@hcx2.SSD.HARRIS.COM
Newsgroups: comp.lang.fortran
Subject: Re: CHARACTER EQUIVALENCE (Was Re: fort
Message-ID: <44400040@hcx2>
Date: 24 Apr 89 19:28:00 GMT
References: <67044@pyramid.pyramid.com>
Lines: 28
Nf-ID: #R:pyramid.pyramid.com:67044:hcx2:44400040:000:767
Nf-From: hcx2.SSD.HARRIS.COM!bill    Apr 24 15:28:00 1989


Well, alignment is a consideration, but the real problem is the
"equivalencing" that can be done with COMMON.  Consider the following
non-standard conforming program fragment:

      SUBROUTINE SUB1
      COMMON /C1/ A, B, C
      INTEGER    A(5), B(3), C(4)
      ...
      END

      SUBROUTINE SUB2
      COMMON /C1/ D, E, F
      CHARACTER*12 D
      CHARACTER*2  E
      CHARACTER*4  F
      ...
      END

Can YOU think of a way to _portably_ define the relationship between A, B,
and C with D, E, and F?  You would have to be able to do this, if you
want to allow mixing of CHARACTER and non-CHARACTER variables.

Bill Leonard
Harris Computer Systems Division
2101 W. Cypress Creek Road
Fort Lauderdale, FL  33309
bill@ssd.harris.com or hcx1!bill@uunet.uu.net