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