1! { dg-do run }
2!
3! PR 45674: [OOP] Undefined references for extended types
4!
5! Contributed by Dietmar Ebner <dietmar.ebner@gmail.com>
6
7module fails_mod
8  implicit none
9  type :: a_t
10     integer :: a
11  end type
12  type, extends(a_t) :: b_t
13     integer :: b
14  end type
15contains
16  subroutine foo(a)
17    class(a_t) :: a
18  end subroutine foo
19end module fails_mod
20
21module fails_test
22  implicit none
23contains
24  subroutine bar
25    use fails_mod
26    type(b_t) :: b
27    call foo(b)
28  end subroutine bar
29end module fails_test
30
31end
32