gcc/testsuite/gfortran.dg/charlen_13.f90

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