! { 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 |