Hello All,
Thank you Matthijs van Waveren for a prompt reply. However, it appears
that your fix (which works with the Fujitsu Fortran 90 complier) does
not
work with the EPC Fortran 90 compiler. When I tried your suggestion, I
get an error: "The entity REC can not appear in an equivalence
statement."
See below:
INTEGER A, B, C
COMMON / COMBLK / A, B, C
STRUCTURE /RECBLK /
INTEGER A, B, C
END STRUCTURE
RECORD /RECBLK/ REC
EQUIVALENCE ( A, REC ) <== Compiler Complains About This Too!
C EQUIVALENCE ( A, REC.A ) <== Compiler Complains About This
Is there another way to make the record and the common block share the
same memory?
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|