2 ! { dg-options "-fdump-tree-original" }
3 ! PR fortran/103692 - ICE in expand_constructor
4 ! Contributed by G.Steinmetz
7 character(3), parameter :: a(4) = 'abc'
8 character(*), parameter :: b(*) = (a(2:1))
9 character(*), parameter :: y(*) = [(a(2:1))]
10 character(*), parameter :: u(*) = a(2:1)
11 character(*), parameter :: v(*) = [a(2:1)]
12 character(*), parameter :: w(-1) = (a(2:1))
13 character(*), parameter :: x(-1) = a(2:1)
14 character(5), parameter :: c(3,3) = 'def'
15 character(*), parameter :: d(*) = [(c(2:1,2:))]
16 character(*), parameter :: e(*,*) = (c(2:1,2:))
17 if (len(b
) /= 3 .or
. size (b
) /= 0) stop 1
18 if (len(y
) /= 3 .or
. size (y
) /= 0) stop 2
19 if (len(d
) /= 5 .or
. size (d
) /= 0) stop 3
20 if (len(e
) /= 5 .or
. any (shape (e
) /= [0,2])) stop 4
23 ! { dg-final { scan-tree-dump-not "_gfortran_stop_numeric" "original" } }
