5 ! Contributed by Harald Anlauf and Zdenek Sojka
10 type, abstract
:: inner_product_class
11 end type inner_product_class
13 type, extends(inner_product_class
) :: trivial_inner_product_type
14 end type trivial_inner_product_type
18 function my_dot_v_v (this
,a
,b
) ! { dg-error "has no IMPLICIT type" }
19 class(trivial_inner_product_type
), intent(in
) :: this
20 class(vector_class
), intent(in
) :: a
,b
! { dg-error "Derived type" }
24 class
is (trivial_vector_type
) ! { dg-error "Syntax error in CLASS IS" }
25 select
type (b
) ! { dg-error "Expected TYPE IS" }
26 class
is (trivial_vector_type
) ! { dg-error "Syntax error in CLASS IS" }
29 class default
! { dg-error "Unclassifiable statement" }
30 end select
! { dg-error "Expecting END FUNCTION" }
31 end function my_dot_v_v
35 ! { dg-excess-errors "Unexpected end of file" }