Subversion Repositories openrisc

! { dg-do compile }

! { dg-do compile }

! Tests the fix for PR29232, in which the invalid code below was not

! Tests the fix for PR29232, in which the invalid code below was not

! diagnosed.

! diagnosed.

!

!

! Contributed by Tobias Burnus  

! Contributed by Tobias Burnus  

!

!

MODULE test

MODULE test

     TYPE vertex

     TYPE vertex

           INTEGER :: k

           INTEGER :: k

     END TYPE vertex

     END TYPE vertex

CONTAINS

CONTAINS

     SUBROUTINE S1()

     SUBROUTINE S1()

         TYPE(vertex) :: a  ! { dg-error "cannot be host associated" }

         TYPE(vertex) :: a  ! { dg-error "cannot be host associated" }

         vertex : DO i=1,2  ! { dg-error "incompatible object of the same name" }

         vertex : DO i=1,2  ! { dg-error "incompatible object of the same name" }

         ENDDO vertex

         ENDDO vertex

     END SUBROUTINE

     END SUBROUTINE

END MODULE test

END MODULE test

! { dg-final { cleanup-modules "test" } }

! { dg-final { cleanup-modules "test" } }