Subversion Repositories openrisc_me

! { dg-do compile }

! { dg-do compile }

! { dg-options "-O0" }

! { dg-options "-O0" }

! Tests patch for PR24158 - The module would compile, in spite

! Tests patch for PR24158 - The module would compile, in spite

! of the recursion between the derived types. This would cause

! of the recursion between the derived types. This would cause

! an ICE in the commented out main program. The standard demands

! an ICE in the commented out main program. The standard demands

! that derived type components be already defined, to break

! that derived type components be already defined, to break

! recursive derived type definitions.

! recursive derived type definitions.

!

!

! Contributed by Paul Thomas 

! Contributed by Paul Thomas 

!

!

module snafu

module snafu

  type       ::   a

  type       ::   a

    integer    :: v

    integer    :: v

    type(b)    :: i ! { dg-error "not been previously defined" }

    type(b)    :: i ! { dg-error "not been previously defined" }

  end type a

  end type a

  type       ::   b

  type       ::   b

    type(a)    :: i

    type(a)    :: i

  end type b

  end type b

  type (a)   :: foo

  type (a)   :: foo

end module snafu

end module snafu

!  use snafu

!  use snafu

!  foo%v = 1

!  foo%v = 1

!  end

!  end

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

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