URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [deallocate_alloc_opt_2.f90] - Blame information for rev 708

Go to most recent revision | Details | Compare with Previous | 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
   deallocate(i)                    ! { dg-error "variable definition context" }
   deallocate(m, stat=j)            ! { dg-error "variable definition context" }
   deallocate(m,stat=n,errmsg=err)  ! { dg-error "variable definition context" }
end subroutine sub

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { 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 "variable definition context" }`
10			`deallocate(m, stat=j) ! { dg-error "variable definition context" }`
11			`deallocate(m,stat=n,errmsg=err) ! { dg-error "variable definition context" }`
12			`end subroutine sub`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [deallocate_alloc_opt_2.f90] - Blame information for rev 708