! { dg-do compile }
program p
   integer, allocatable :: arr(:)
   integer :: stat
   character(len=128, kind=4) :: errmsg = ' '
   allocate (arr(3), stat=stat, errmsg=errmsg)  ! { dg-error "shall be a scalar default CHARACTER" }
   print *, allocated(arr), stat, trim(errmsg)
end