! { dg-do compile } | |
! PR fortran/89574 - ICE in conv_function_val, at fortran/trans-expr.c:3792 | |
module mod1 | |
contains | |
subroutine init | |
end subroutine | |
end module | |
module mod2 | |
contains | |
subroutine init | |
end subroutine | |
end module | |
module init | |
use mod1, only : test_init1 => init | |
use mod2, only : test_init2 => init | |
implicit none | |
contains | |
subroutine sub | |
call test_init1 | |
call test_init2 | |
call init | |
contains | |
subroutine init | |
end subroutine | |
end subroutine | |
end module |