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