blob: 6de43a7597fe4830578658a13dee4ef8c34667af (
plain)
1
2
3
4
5
6
7
8
|
! { 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
|
