111
|
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)
|
|
23 end
|