1! { dg-do run }
2! PR fortran/91552
3! Code contributed by Gerhard Steinmetz.
4program p
5 real :: y(3), z(4)
6 y = 2.0 * [real :: 1, [2], 3]
7 z = 2.0 * [real :: 1, [2, [4]], 3]
8 if (any(y /= [2., 4., 6.])) stop 1
9 if (any(z /= [2., 4., 8., 6.])) stop 2
10end
11