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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [allocate_alloc_opt_2.f90] - Blame information for rev 302

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
   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

Line No.	Rev	Author	Line
1	302	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			`allocate(i(2)) ! { dg-error "Cannot allocate" "" }`
10			`allocate(m(2), stat=j) ! { dg-error "cannot be" "" }`
11			`allocate(m(2),stat=n,errmsg=err) ! { dg-error "cannot be" "" }`
12			`end subroutine sub`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [allocate_alloc_opt_2.f90] - Blame information for rev 302