gcc/testsuite/gfortran.dg/class_8.f03

   1 ! { dg-do compile }
   2 ! Test fixes for PR41618.
   3 !
   4 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   5 !
   6  type t1
   7    integer :: comp
   8    class(t1),pointer :: cc
   9  end type
  10
  11  class(t1) :: x ! { dg-error "must be dummy, allocatable or pointer" }
  12
  13  x%comp = 3
  14  print *,x%comp
  15
  16 end