URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [allocate_alloc_opt_2.f90] - Rev 302
Compare with Previous | Blame | View Log
! { dg-do compile }
subroutine sub(i, j, err)
implicit none
character(len=*), intent(in) :: err
integer, intent(in) :: j
integer, intent(in), allocatable :: i(:)
integer, allocatable :: m(:)
integer n
allocate(i(2)) ! { dg-error "Cannot allocate" "" }
allocate(m(2), stat=j) ! { dg-error "cannot be" "" }
allocate(m(2),stat=n,errmsg=err) ! { dg-error "cannot be" "" }
end subroutine sub