blob: f18df66a2cce34cd3b6afa2155628fa762cfffbd (
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
30
31
32
33
34
35
|
! { dg-do run }
! PR 77746 - this used to crash during execution.
! Original test case by Vladimir Fuka.
module first
private
public execute
interface execute
module procedure random_name
end interface
contains
subroutine random_name()
end subroutine
end module
module test
use first
implicit none
contains
subroutine p_execute(i) bind(C, name="random_name")
integer :: i
call execute()
end subroutine
end module
use test
call p_execute(1)
end
|