1! { dg-do compile }
2!
3! Tests the fix for PR66465, in which the arguments of the call to
4! ASSOCIATED were falsly detected to have different type/kind.
5!
6! Contributed by Damian Rouson  <damian@sourceryinstitute.org>
7!
8  interface
9     real function HandlerInterface (arg)
10       real :: arg
11     end
12  end interface
13
14  type TextHandlerTestCase
15     procedure (HandlerInterface), nopass, pointer :: handlerOut=>null()
16  end type
17
18  type(TextHandlerTestCase) this
19
20  procedure (HandlerInterface), pointer :: procPtr=>null()
21
22  print*, associated(procPtr, this%handlerOut)
23end
24