Following code (named myundef.for) contains an undefined INTEGER(7) variable and has been compiled/linked as a 32 and 64 bit binary using the /undef option. Executing the 32 bit binary results in a runtime error (as expected), however, executing the 64 bit binary does not!
subroutine mysr(myhandle)
INTEGER(7) myhandle
INCLUDE <WINDOWS.INS>
A=SETFOCUS(myhandle)
end
INTEGER(7) myhandle0
call mysr(myhandle0)
end
Code generation calls:
ftn95 myundef.for /undef /link
ftn95 myundef.for /undef /link /64
ftn95 version info: [FTN95/x64 Ver. 8.30.0 Copyright (c) Silverfrost Ltd 1993-2018]
Regards, Dietmar