blob: 1c98c185c17d68d671dc77b25667efe620ab6ec1 [file] [log] [blame]
! { dg-do compile }
! PR fortran/102520 - ICE in expand_constructor, at fortran/array.c:1802
program p
type t
end type
type(t), parameter :: a(4) = shape(1) ! { dg-error "Incompatible" }
type(t), parameter :: b(2,2) = reshape(a,[2,2]) ! { dg-error "Incompatible" }
type(t), parameter :: c(2,2) = transpose(b) ! { dg-error "Unclassifiable" }
end
! { dg-error "Different shape for array assignment" " " { target *-*-* } 7 }