| ! { dg-do compile } |
| ! |
| ! Tests the fix for PR66465, in which the arguments of the call to |
| ! ASSOCIATED were falsly detected to have different type/kind. |
| ! |
| ! Contributed by Damian Rouson <damian@sourceryinstitute.org> |
| ! |
| interface |
| real function HandlerInterface (arg) |
| real :: arg |
| end |
| end interface |
| |
| type TextHandlerTestCase |
| procedure (HandlerInterface), nopass, pointer :: handlerOut=>null() |
| end type |
| |
| type(TextHandlerTestCase) this |
| |
| procedure (HandlerInterface), pointer :: procPtr=>null() |
| |
| print*, associated(procPtr, this%handlerOut) |
| end |