1! { dg-do compile } 2subroutine sub(i, j, err) 3 implicit none 4 character(len=*), intent(in) :: err 5 integer, intent(in) :: j 6 integer, intent(in), allocatable :: i(:) 7 integer, allocatable :: m(:) 8 integer n 9 allocate(i(2)) ! { dg-error "variable definition context" } 10 allocate(m(2), stat=j) ! { dg-error "variable definition context" } 11 allocate(m(2),stat=n,errmsg=err) ! { dg-error "variable definition context" } 12end subroutine sub 13