gcc/testsuite/gfortran.dg/pr66465.f90

   1 ! { dg-do compile }
   2 !
   3 ! Tests the fix for PR66465, in which the arguments of the call to
   4 ! ASSOCIATED were falsly detected to have different type/kind.
   5 !
   6 ! Contributed by Damian Rouson  <damian@sourceryinstitute.org>
   7 !
   8   interface
   9      real function HandlerInterface (arg)
  10        real :: arg
  11      end
  12   end interface
  13
  14   type TextHandlerTestCase
  15      procedure (HandlerInterface), nopass, pointer :: handlerOut=>null()
  16   end type
  17
  18   type(TextHandlerTestCase) this
  19
  20   procedure (HandlerInterface), pointer :: procPtr=>null()
  21
  22   print*, associated(procPtr, this%handlerOut)
  23 end