gcc/testsuite/gfortran.dg/allocate_alloc_opt_2.f90

   1 ! { dg-do compile }
   2 subroutine 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" }
  12 end subroutine sub