1! { dg-do compile }
2!
3! PR 48291: [4.6/4.7 Regression] [OOP] internal compiler error, new_symbol(): Symbol name too long
4!
5! Contributed by Adrian Prantl <adrian@llnl.gov>
6
7module Overload_AnException_Impl
8  type :: Overload_AnException_impl_t
9  end type
10contains
11  subroutine ctor_impl(self)
12    class(Overload_AnException_impl_t) :: self
13  end subroutine
14end module
15