gcc/testsuite/gfortran.dg/deallocate_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    deallocate(i)                    ! { dg-error "Cannot deallocate" "" }
  10    deallocate(m, stat=j)            ! { dg-error "cannot be" "" }
  11    deallocate(m,stat=n,errmsg=err)  ! { dg-error "cannot be" "" }
  12 end subroutine sub