3 ! PR 42769: [OOP] ICE in resolve_typebound_procedure
6 ! Contributed by Janus Weil <janus@gcc.gnu.org>
12 procedure, nopass :: get => my_get
15 integer function my_get()
22 integer function my_get() ! must have the same name as the function in mod1
28 use mod1 ! order of use statements is important
29 class(t1),allocatable :: a
31 if (a%get()/=1) call abort()