Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

! Test fix for F95 part of PR39800, in which the host association of the type 't1'

! generated an error.

!

! Reported to clf by Alexei Matveev  and reported by

! Tobias Burnus  

!

module m

  implicit none

  private

  type :: t1

    integer :: i

  end type

  type :: t2

    type(t1) :: j

  end type

  contains

    subroutine sub()

      implicit none

      type :: t3

        type(t1) :: j

      end type

    end subroutine

end module

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