Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR35702, which caused an ICE because the types in the assignment

! were not translated to be the same.

!

! Contributed by Dick Hendrickson 

!

MODULE TESTS

  TYPE UNSEQ

    CHARACTER(1) :: C

  END TYPE UNSEQ

CONTAINS

  SUBROUTINE CG0028 (TDA1L, TDA1R, nf0, nf1, nf2, nf3)

    TYPE(UNSEQ) TDA1L(NF3)

    TDA1L(NF1:NF2:NF1)%C = TDA1L(NF0+2:NF3:NF2/2)%C

  END SUBROUTINE

END MODULE TESTS

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