gcc/testsuite/gfortran.dg/charlen_04.f90

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