1! { dg-do compile }
2! Tests the fix for PR29232, in which the invalid code below was not
3! diagnosed.
4!
5! Contributed by Tobias Burnus  <tobias.burnus@physik.fu-berlin.de>
6!
7MODULE test
8     TYPE vertex
9           INTEGER :: k
10     END TYPE vertex
11CONTAINS
12     SUBROUTINE S1()
13         TYPE(vertex) :: a  ! { dg-error "cannot be host associated" }
14         vertex : DO i=1,2  ! { dg-error "incompatible object of the same name" }
15         ENDDO vertex
16     END SUBROUTINE
17END MODULE test
18