blob: 48dd0680a48d082b2eeb230141d04b1144357d41 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
! { 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
|
