blob: 6853c069633b0e2da59f4d5f9ba48d919c36b2ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do compile }
! { dg-options "-Wzerotrip" }
! 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 <jv244@cam.ac.uk>
!
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
|
