gcc/testsuite/gfortran.dg/class_3.f03

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3 !
   4 ! PR 40940: [F03] CLASS statement
   5 !
   6 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   7
   8  type :: t
   9   integer :: comp
  10  end type
  11
  12  class(t), pointer :: cl  ! { dg-error "CLASS statement" }
  13
  14 end
  15