blob: 77181a2054ef962419d188081ef4a7eb860fe236 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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()
end
|
