gcc/testsuite/gfortran.dg/pointer_check_8.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcheck=pointer" }
   3 !
   4 ! PR 46809: [OOP] ICE with -fcheck=pointer for CLASS IS
   5 !
   6 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
   7
   8   type t
   9   end type t
  10
  11 contains
  12
  13   subroutine sub(a)
  14     class(t) :: a
  15     select type (a)
  16       class is (t)
  17         print *, 'Hi there'
  18     end select
  19   end subroutine
  20
  21 end