Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR32875, in which the character length for the

! array constructor would get lost in simplification and would lead

! the error 'Not Implemented: complex character array constructor'.

!

! Contributed by Joost VandeVondele 

!

  call foo ((/(S1(i),i=1,3,-1)/)) ! { dg-warning "will be executed zero times" }

CONTAINS

  FUNCTION S1(i)

    CHARACTER(LEN=1) :: S1

    INTEGER :: I

    S1="123456789"(i:i)

  END FUNCTION S1

  subroutine foo (chr)

    character(1) :: chr(:)

    print *, chr

  end subroutine

END