blob: 46831743b2bf1bef201f041adea622d6b18c9e85 [file] [log] [blame]
! { dg-do compile }
! PR fortran/102816
program p
type t
integer :: a([2]) ! { dg-error "must be scalar" }
end type
type(t) :: x = t([3, 4]) ! { dg-error "Bad array spec of component" }
end