1! { dg-do compile }
2! Original code from Gerhard Steinmetz
3! Gerhard dot Steinmetz for fortran at t-online dot de
4! PR fortran/68019
5!
6program p
7   integer :: i
8   type t
9      integer :: n
10   end type
11   type(t), parameter :: vec(*) = [(t(i), i = 1, 4)]
12   type(t), parameter :: arr(*) = reshape(vec, [2, 2])   ! { dg-error "ranks 1 and 2 in assignment" }
13end
14