blob: 2078cd7a662aef75c689bf30aeaec5bd11d48d80 (
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
|
! { dg-do run }
!
! PR 45674: [OOP] Undefined references for extended types
!
! Contributed by Dietmar Ebner <dietmar.ebner@gmail.com>
module fails_mod
implicit none
type :: a_t
integer :: a
end type
type, extends(a_t) :: b_t
integer :: b
end type
contains
subroutine foo(a)
class(a_t) :: a
end subroutine foo
end module fails_mod
module fails_test
implicit none
contains
subroutine bar
use fails_mod
type(b_t) :: b
call foo(b)
end subroutine bar
end module fails_test
end
|
