INTERFACE internal compiler error

The following code generates an internal compiler error. There is a coding error in line 5, where the argument to subroutine s is indicated as s rather than as i.

MODULE m
CONTAINS
 FUNCTION f(s)
  INTERFACE
   SUBROUTINE s (s)
    INTEGER :: i
   END SUBROUTINE s
  END INTERFACE
 END FUNCTION f
END MODULE m

Thanks for the feedback. I have logged this for investigation.

The compiler will now report 'S is not correctly defined'.