blob: 6cb7387a46a69fa40c37b8ea64b49d217e599fdd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
! See PR fortran/36251.
module a
implicit none
integer :: i = 42
end module a
! Causes ICE
module b
use iso_c_binding
use a
implicit none
bind(c) :: a ! { dg-error "applied to" }
end module b
! Causes ICE
module d
use a
implicit none
bind(c) :: a ! { dg-error "applied to" }
end module d
|