error running in Intel while Compaq is ok

error running in Intel while Compaq is ok

Hello,I am gettingan error in Intel Visual Studio: error #8000: There is a conflict between local interface block and external interface block [fnc]. It points at the line where I first call the function fnc. Surprisingly, the code runs perfectly on the older Compaq Visual Fortran without that mistake.

The error message is coming from an interface consistency checker that CVF didn't have. However, in this case, it is not correctly handling the case of the function returning the array result with an expression bound.

There are two obvious alternatives:

1. Remove the INTERFACE block and move FNC to be a CONTAINed routine, so that the end of the code would look like this: