! { 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 |