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
14end
15
16