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