Compile Remark 5418 USEROPEN

[mattintelnetfort]

I'm trying to compile a source file but keep getting the following remark. The code links and runs as expected but cannot get rid of the 'remark' without changing project settings. I don't want to change project settings because of other code in source. Is there a way to simply treat the problem lines without changing project/file properties? Thanks.

remark #5418: USEROPEN routine must be defined with C or Default calling convention
EXTERNAL FTN_FILE_OPEN

The code snippet generating this is:

EXTERNAL FTN_FILE_OPEN


...


OPEN (LU, FILE=CSPEC, ACCESS=CAC, USEROPEN=FTN_FILE_OPEN, ERR=6000)

[Steven_L_Intel1]

Do you have CVF set as the default calling convention? If so, then you'll have to do this:

Add the line:

!DEC$ ATTRIBUTES DEFAULT :: FTN_FILE_OPEN

two places. One, after the EXTERNAL and the other in the source of FTN_FILE_OPEN.