1! { dg-do compile } 2! PR fortran/65173 3program p 4 type t 5 character(*), allocatable :: x(*) ! { dg-error "must have a deferred shape" } 6 end type 7end 8! { dg-excess-errors "needs to be a constant specification" } 9