Conflict between module name and variable name

Shouldn't the compiler (XE 17) issue an error due to the duplicate use of name S in this example?

MODULE S
IMPLICIT NONE
INTERFACE
    MODULE FUNCTION F(S)
        IMPLICIT NONE
        INTEGER  :: S,F
    END FUNCTION F
END INTERFACE
END MODULE S