Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

! This checks that the fix for PR25730, which was a regression

! caused by the fix for PR19362.

!

! Contributed by Andrea Bedini 

!==============

MODULE testcase

  TYPE orbit_elem

     CHARACTER(4) :: coo

  END TYPE orbit_elem

END MODULE

MODULE tp_trace

  USE testcase

  TYPE(orbit_elem) :: tp_store

CONTAINS

  SUBROUTINE str_clan()

    USE testcase

    TYPE(orbit_elem) :: mtpcar

    mtpcar%coo='a'             !ICE was here

  END SUBROUTINE str_clan

END MODULE

! { dg-final { cleanup-modules "testcase tp_trace" } }