gcc/testsuite/gfortran.dg/class_1.f03

   1 ! { dg-do run }
   2 !
   3 ! PR 40940: CLASS statement
   4 !
   5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   6
   7 implicit none
   8
   9 type t
  10   integer :: comp
  11   class(t),pointer :: c2
  12 end type
  13
  14 class(t),pointer :: c1
  15
  16 allocate(c1)
  17
  18 c1%comp = 5
  19 c1%c2 => c1
  20
  21 print *,c1%comp
  22
  23 call sub(c1)
  24
  25 if (c1%comp/=5) call abort()
  26
  27 deallocate(c1)
  28
  29 contains
  30
  31   subroutine sub (c3)
  32     class(t) :: c3
  33     print *,c3%comp
  34   end subroutine
  35
  36 end
  37