gcc/testsuite/gfortran.dg/unlimited_polymorphic_25.f03

   1 ! { dg-do compile }
   2 !
   3 ! Tests the fix for PR69566, in which a boolean expression testing a
   4 ! the component of a pointer did not check the pointer, resulting in
   5 ! the ICE.
   6 !
   7 ! Contributed by Janus Weil  <janus@gcc.gnu.org>
   8 !
   9   print *, associated(return_pointer()) ! ICE
  10 contains
  11   function return_pointer()
  12     class(*), pointer :: return_pointer(:)
  13   end function
  14 end