2 ! { dg-options "-Wall" }
4 ! PR 55855: [OOP] incorrect warning with procedure pointer component on pointer-valued base object
6 ! Contributed by Andrew Benson <abensonca@gmail.com>
10 procedure(logical), pointer, nopass
:: task
13 type(event
), pointer :: myEvent