1! { dg-do compile } 2! { dg-options "-Wall" } 3! 4! PR 55855: [OOP] incorrect warning with procedure pointer component on pointer-valued base object 5! 6! Contributed by Andrew Benson <abensonca@gmail.com> 7 8 implicit none 9 type :: event 10 procedure(logical), pointer, nopass :: task 11 end type event 12 logical :: r 13 type(event), pointer :: myEvent 14 allocate(myEvent) 15 r=myEvent%task() 16end 17