1! { dg-do compile } 2! PR 41197 3program main 4 integer, dimension (4) :: ier = 0 5 character(len=30), dimension(2) :: er 6 integer, dimension (:), allocatable :: a 7 allocate (a (16), stat = ier) ! { dg-error "must be a scalar INTEGER" } 8 allocate (a (14), stat=ier(1),errmsg=er) ! { dg-error "must be a scalar CHARACTER" } 9end 10 11