1! { dg-do compile }
2! PR fortran/89574 - ICE in conv_function_val, at fortran/trans-expr.c:3792
3
4module mod1
5contains
6  subroutine init
7  end subroutine
8end module
9
10module mod2
11contains
12  subroutine init
13  end subroutine
14end module
15
16module init
17  use mod1, only : test_init1 => init
18  use mod2, only : test_init2 => init
19  implicit none
20contains
21  subroutine sub
22    call test_init1
23    call test_init2
24    call init
25  contains
26    subroutine init
27    end subroutine
28  end subroutine
29end module
30