1! { dg-do run }
2! PR 77746 - this used to crash during execution.
3! Original test case by Vladimir Fuka.
4module first
5  private
6  public execute
7
8  interface execute
9    module procedure random_name
10  end interface
11
12contains
13
14  subroutine random_name()
15  end subroutine
16end module
17
18module test
19  use first
20
21  implicit none
22
23contains
24
25  subroutine p_execute(i)  bind(C, name="random_name")
26    integer :: i
27
28    call execute()
29  end subroutine
30
31end module
32
33  use test
34  call p_execute(1)
35end
36