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