2017-02-20 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / array_constructor_18.f90
blob6853c069633b0e2da59f4d5f9ba48d919c36b2ae
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'.
7 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
9 call foo ((/(S1(i),i=1,3,-1)/)) ! { dg-warning "will be executed zero times" }
10 CONTAINS
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
20 END