servere 163 floating stack check

[engineerik]

I modified the code Steve posted in topic "Accessing executable information at run time" to use fixed format (file attached). I have used this function in several programs with great success. However, when adding this code to one of my programs I get the following error:

forrtl: severe(163):Program Exception-floating stack check

This is using compaq vf 6.1 on an NT4 workstation.
If I step through the code the function works fine and sets vinfo as it should but this error occurs when the IDE shows the calling program and the call to the function is shown as the current line.

Any Ideas what's wrong?

[Steven_L_Intel1]

My guess is that you did not declare getver as integer in the caller. Therefore, the compiler assumes that getver returns a real (on the floating stack) and the inconsistency creates the floating stack check error.

Suggestion - always use IMPLICIT NONE.

Steve

[engineerik]

Right on the mark!
I rarely use user-defined functions and had forgotten to declare getver in the calling program.

Thanks,
Erik