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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [allocate_zerosize_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`program main`	`program main`
`implicit none`	`implicit none`
`real, allocatable :: a(:), b(:,:)`	`real, allocatable :: a(:), b(:,:)`
`integer :: n,m`	`integer :: n,m`
`character (len=2) :: one, two`	`character (len=2) :: one, two`

`one = ' 1'`	`one = ' 1'`
`two = ' 2'`	`two = ' 2'`

`allocate (a(1:-1))`	`allocate (a(1:-1))`
`if (size(a) /= 0) call abort`	`if (size(a) /= 0) call abort`
`deallocate (a)`	`deallocate (a)`

`allocate (b(1:-1,0:10))`	`allocate (b(1:-1,0:10))`
`if (size(b) /= 0) call abort`	`if (size(b) /= 0) call abort`
`deallocate (b)`	`deallocate (b)`

`! Use variables for array bounds. The internal reads`	`! Use variables for array bounds. The internal reads`
`! are there to hide fact that these are actually constant.`	`! are there to hide fact that these are actually constant.`

`read (unit=one, fmt='(I2)') n`	`read (unit=one, fmt='(I2)') n`
`allocate (a(n:-1))`	`allocate (a(n:-1))`
`if (size(a) /= 0) call abort`	`if (size(a) /= 0) call abort`
`deallocate (a)`	`deallocate (a)`

`read (unit=two, fmt='(I2)') m`	`read (unit=two, fmt='(I2)') m`
`allocate (b(1:3, m:0))`	`allocate (b(1:3, m:0))`
`if (size(b) /= 0) call abort`	`if (size(b) /= 0) call abort`
`deallocate (b)`	`deallocate (b)`
`end program main`	`end program main`