3 ! PR 42335: [OOP] ICE on CLASS IS (bad_identifier)
5 ! Contributed by Harald Anlauf <anlauf@gmx.de>
8 type, abstract :: vector_class
11 type, extends(vector_class) :: trivial_vector_type
13 end type trivial_vector_type
17 subroutine bar (this,v)
18 class(trivial_vector_type), intent(inout) :: this
19 class(vector_class), intent(in) :: v
22 class is (bad_id) ! { dg-error "is not an accessible derived type" }
23 this%elements(:) = v%elements(:) ! { dg-error "is not a member of" }