gcc/testsuite/gfortran.dg/class_2.f03

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3 !
   4 ! PR 40940: CLASS statement
   5 !
   6 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   7
   8 use,intrinsic :: iso_c_binding
   9
  10 type t1
  11   integer :: comp
  12 end type
  13
  14 type t2
  15   sequence
  16   real :: r
  17 end type
  18
  19 type,bind(c) :: t3
  20   integer(c_int) :: i
  21 end type
  22
  23 type :: t4
  24   procedure(absint), pointer :: p  ! { dg-error "Non-polymorphic passed-object dummy argument" }
  25 end type
  26
  27 type :: t5
  28   class(t1) :: c  ! { dg-error "must be allocatable or pointer" }
  29 end type
  30
  31 abstract interface
  32   subroutine absint(arg)
  33     import :: t4
  34     type(t4) :: arg
  35   end subroutine
  36 end interface
  37
  38 type t6
  39   integer :: i
  40   class(t6), allocatable :: foo  ! { dg-error "must have the POINTER attribute" }
  41 end type t6
  42
  43
  44 class(t1) :: o1  ! { dg-error "must be dummy, allocatable or pointer" }
  45
  46 class(t2), pointer :: o2  ! { dg-error "is not extensible" }
  47 class(t3), pointer :: o3  ! { dg-error "is not extensible" }
  48
  49 end
  50