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