Hi,
I am wondering why uninit check does not detect uninit variable in the following program. Is there a way to detect such situations ?
PROGRAM UNINIT_FAILED
IMPLICIT NONE
INTEGER VAR
CALL DO_NOTHING(VAR)
VAR=VAR+0
print *, "VAR=", VAR
END
SUBROUTINE DO_NOTHING(MYVAR)
IMPLICIT NONE
INTEGER MYVAR
RETURN
END
Thank you very much for your help.
Thierry
链接已复制
2 回复数
