blob: 37fdbca9178fe6daf5282c8be2ff9f9e89329f61 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-Wall" }
!
! PR 55855: [OOP] incorrect warning with procedure pointer component on pointer-valued base object
!
! Contributed by Andrew Benson <abensonca@gmail.com>
implicit none
type :: event
procedure(logical), pointer, nopass :: task
end type event
logical :: r
type(event), pointer :: myEvent
allocate(myEvent)
r=myEvent%task() ! { dg-warning "uninitialized" }
end