Subversion Repositories openrisc_me

! { dg-do compile }

! { dg-do compile }

! Tests the fix PR29744, which is really a repeat of PR19362.

! Tests the fix PR29744, which is really a repeat of PR19362.

! The problem came about because the test for PR19362 shifted

! The problem came about because the test for PR19362 shifted

! the fix to a subroutine, rather than the main program that

! the fix to a subroutine, rather than the main program that

! it originally occurred in.  Fixes for subsequent PRs introduced

! it originally occurred in.  Fixes for subsequent PRs introduced

! a difference between the main program and a contained procedure

! a difference between the main program and a contained procedure

! that resulted in the compiler going into an infinite loop.

! that resulted in the compiler going into an infinite loop.

!

!

! Contributed by Harald Anlauf  

! Contributed by Harald Anlauf  

! and originally by Francois-Xavier Coudert  

! and originally by Francois-Xavier Coudert  

!

!

MODULE M

MODULE M

  TYPE T0

  TYPE T0

    SEQUENCE

    SEQUENCE

    INTEGER I

    INTEGER I

  END TYPE

  END TYPE

END

END

PROGRAM MAIN

PROGRAM MAIN

  USE M, T1 => T0

  USE M, T1 => T0

  TYPE T0

  TYPE T0

    SEQUENCE

    SEQUENCE

    INTEGER I

    INTEGER I

  END TYPE

  END TYPE

  TYPE(T0) :: BAR

  TYPE(T0) :: BAR

  TYPE(T1) :: BAZ

  TYPE(T1) :: BAZ

  BAZ = BAR

  BAZ = BAR

END

END

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

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