2 ! { dg-options "-std=f2003" }
4 ! PR 40940: CLASS statement
6 ! Contributed by Janus Weil <janus@gcc.gnu.org>
8 use,intrinsic :: iso_c_binding
24 procedure(absint), pointer :: p ! { dg-error "Non-polymorphic passed-object dummy argument" }
28 class(t1) :: c ! { dg-error "must be allocatable or pointer" }
32 subroutine absint(arg)
40 class(t6), allocatable :: foo ! { dg-error "must have the POINTER attribute" }
44 class(t1) :: o1 ! { dg-error "must be dummy, allocatable or pointer" }
46 class(t2), pointer :: o2 ! { dg-error "is not extensible" }
47 class(t3), pointer :: o3 ! { dg-error "is not extensible" }