Common Blocks and PARAMETER

[stevet96]

I am trying to port a large CVF library to IVF. The library uses an unbelievable amount of Common Data blocks. One of the Common Data blocks looks like this:

COMMON/DFHEDN/JFUNT0(MXGDFO),LPHRC0(MXGDFO),NVERS0(MXGDFO),

* LSPRN0(MXGDFO),JRTST0(MXGDFO),

* JITST0(MXGDFO),JCTST0(MXGDFO),JTTPT0(MXGDFO),

* LDLVR0(MXGDFO),LDLVI0(MXGDFO),JDLVP0(MXGDFO),

* LTREE0(MXGDFO),LVD0(MXGDFO),

* LNTPT0(MXGDFO),LVDPT0(MXGDFO),LENTI0(MXGDFO),

* LENTC0(MXGDFO),LENTR0(MXGDFO),IDLVP0(MXGDFO),

* IDPRP0(MXGDFO),LDPRI0(MXGDFO),

* LDPR0(MXGDFO), JDPRP0(MXGDFO),JFITP0(MXGDFO),

* LVECL0(MXGDFO),JTRUP0(MXGDFO),JVDUP0(MXGDFO),

* JDLUP0(MXGDFO),JDPUP0(MXGDFO),JERR0(MXGDFO),

* JOPTY0(MXGDFO),RDOLY0(MXGDFO),JRNFU0(MXGDFO),

* LOCKFD(MXGDFO), GDFENLCK

MXGDFO is defined in a .mdc file as:

PARAMETER(MXGDF0 = 6)

Yet I get a compile error saying: "Error: A COMMON block data object must not be an automatic object."

Since MXGDFO is defined as a Parameter, shouldn't the compiler know the size of the arrays at compile time? This code worked in CVF, so I assume that is compliant with the Fortran standard. If IVF cannot do this what is the simplestchange I can maketo accomplish the same thing? Remember that I have probably a thousand or so of these data blocks that refuse to compile, so major changes are out of the question at this point in time.

Thanks in advance,

Steve

[Steven_L_Intel1]

This part of the compiler is shared with CVF. Can you come up with a small, compileable example that shows the problem? I can't tell from an excerpt, and you didn't include the part of the error message which indicates the problem variable. What version of the Intel compiler are you using? 8.0.047 is current.

[stevet96]

I am using version 8.0.1877.2003. I apologize, there were many error messages and looking at it further the parameter file where MXGDFO was defined could not be found. I have fixed the problem and the error messages went away. However I ran into a new error that looks like it needs to be reported. It says:

"Severe: **Internal compiler error: internal abort** Please report this error along with the circumstances in which it occured in a Software Problem Report. Note: File and line given may not be explicit cause of this error."

"compilation aborted for c:Documents and Settings racysmviewslib_cleanupvob2eng_utilutilsfilegdfsrclibraryfortrandfrppc.f (code 3)"

What information do I need to submit?

[Steven_L_Intel1]

You need to describe the error and attach a source file (or files) that, when compiled, produce the error. But first I suggest you download and install the current version 8.0.047 and try that. You can find this by logging in to your Premier Support account.

[stevet96]

I upgraded to the latest version and that fixed the problem.

Thanks,

Steve