gcc/testsuite/gfortran.dg/assignment_4.f90

   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()  ! { dg-warning "uninitialized" }
  16 end