Subversion Repositories openrisc_me

! { dg-do run }

!

! Test the fix for PR38915 in which the character length of the

! temporaries produced in the assignments marked below was set to

! one.

!

! Contributed by Dick Hendrickson 

!

program cg0033_41

  type t

    sequence

    integer i

    character(len=9) c

  end type t

  type (t)  L(3),R(3), LL(4), RR(4)

  EQUIVALENCE (L,LL)

  integer nfv1(3), nfv2(3)

  R(1)%c = '123456789'

  R(2)%c = 'abcdefghi'

  R(3)%c = '!@#$%^&*('

  L%c = R%c

  LL(1:3)%c = R%c

  LL(4)%c = 'QWERTYUIO'

  RR%c = LL%c            ! The equivalence forces a dependency

  L%c = LL(2:4)%c

  if (any (RR(2:4)%c .ne. L%c)) call abort

  nfv1 = (/1,2,3/)

  nfv2 = nfv1

  L%c = R%c

  L(nfv1)%c = L(nfv2)%c  ! The vector indices force a dependency

  if (any (R%c .ne. L%c)) call abort

end