gcc/testsuite/gfortran.dg/class_13.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 42353: [OOP] Bogus Error: Name 'vtype$...' at (1) is an ambiguous reference ...
   4 !
   5 ! Original test case by Harald Anlauf <anlauf@gmx.de>
   6 ! Modified by Janus Weil <janus@gcc.gnu.org>
   7
   8 module concrete_vector
   9   type :: trivial_vector_type
  10   end type
  11   class(trivial_vector_type), pointer :: this
  12 end module concrete_vector
  13
  14 module concrete_gradient
  15 contains
  16   subroutine my_to_vector (v)
  17     use concrete_vector
  18     class(trivial_vector_type) :: v
  19     select type (v)
  20     class is (trivial_vector_type)
  21     end select
  22   end subroutine
  23 end module concrete_gradient
  24
  25 module concrete_inner_product
  26   use concrete_vector
  27   use concrete_gradient
  28 contains
  29   real function my_dot_v_v (a)
  30     class(trivial_vector_type) :: a
  31     select type (a)
  32     class is (trivial_vector_type)
  33     end select
  34   end function
  35 end module concrete_inner_product
  36