gcc/testsuite/gfortran.dg/class_dummy_2.f03

   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
   7 module 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
  15 contains
  16   subroutine foo(a)
  17     class(a_t) :: a
  18   end subroutine foo
  19 end module fails_mod
  20
  21 module fails_test
  22   implicit none
  23 contains
  24   subroutine bar
  25     use fails_mod
  26     type(b_t) :: b
  27     call foo(b)
  28   end subroutine bar
  29 end module fails_test
  30
  31 end
  32
  33 ! { dg-final { cleanup-modules "fails_mod fails_test" } }