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