2 ! Tests the fix for PR32875, in which the character length for the
3 ! array constructor would get lost in simplification and would lead
4 ! the error 'Not Implemented: complex character array constructor'.
6 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
8 call foo ((/(S1(i),i=1,3,-1)/)) ! { dg-warning "will be executed zero times" }
11 CHARACTER(LEN=1) :: S1
16 character(1) :: chr(:)