5 ! Contributed by Harald Anlauf
11 class(*), allocatable
:: x
16 subroutine print(this
)
19 type is (integer) ! { dg-error "Unexpected intrinsic type 'INTEGER'" }
20 type is (real) ! { dg-error "Unexpected intrinsic type 'REAL'" }
21 type is (complex) ! { dg-error "Unexpected intrinsic type 'COMPLEX'" }
22 type is (character(len
=*)) ! { dg-error "Unexpected intrinsic type 'CHARACTER'" }