Add comp-test-40187 checking function shadowing.

test/src/comp-test-funcs.el

@@ -272,6 +272,14 @@
 (defun comp-test-interactive-form2-f ()
   (interactive))
 
+(defun comp-test-40187-2-f ()
+  'foo)
+
+(defalias 'comp-test-40187-1-f (symbol-function 'comp-test-40187-2-f))
+
+(defun comp-test-40187-2-f ()
+  'bar)
+
 
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;

test/src/comp-tests.el

@@ -339,6 +339,12 @@ Check that the resulting binaries do not differ."
   (should (equal (interactive-form #'comp-tests-free-fun-f)
                  '(interactive))))
 
+(ert-deftest comp-test-40187 ()
+  "Check function name shadowing.
+https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html."
+  (should (eq (comp-test-40187-1-f) 'foo))
+  (should (eq (comp-test-40187-2-f) 'bar)))
+
 
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;