1! { dg-do compile }
2! { dg-options "-Wzerotrip" }
3! Tests the fix for PR32875, in which the character length for the
4! array constructor would get lost in simplification and would lead
5! the error 'Not Implemented: complex character array constructor'.
6!
7! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
8!
9  call foo ((/(S1(i),i=1,3,-1)/)) ! { dg-warning "will be executed zero times" }
10CONTAINS
11  FUNCTION S1(i)
12    CHARACTER(LEN=1) :: S1
13    INTEGER :: I
14    S1="123456789"(i:i)
15  END FUNCTION S1
16  subroutine foo (chr)
17    character(1) :: chr(:)
18    print *, chr
19  end subroutine
20END
21