URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [allocatable_scalar_7.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`!`	`!`
`! PR fortran/41872`	`! PR fortran/41872`
`!`	`!`
`! Allocatable scalars with SAVE`	`! Allocatable scalars with SAVE`
`!`	`!`
`program test`	`program test`
`implicit none`	`implicit none`
`call sub (0)`	`call sub (0)`
`call sub (1)`	`call sub (1)`
`call sub (2)`	`call sub (2)`
`contains`	`contains`
`subroutine sub (no)`	`subroutine sub (no)`
`integer, intent(in) :: no`	`integer, intent(in) :: no`
`integer, allocatable, save :: a`	`integer, allocatable, save :: a`
`if (no == 0) then`	`if (no == 0) then`
`if (allocated (a)) call abort ()`	`if (allocated (a)) call abort ()`
`allocate (a)`	`allocate (a)`
`else if (no == 1) then`	`else if (no == 1) then`
`if (.not. allocated (a)) call abort ()`	`if (.not. allocated (a)) call abort ()`
`deallocate (a)`	`deallocate (a)`
`else`	`else`
`if (allocated (a)) call abort ()`	`if (allocated (a)) call abort ()`
`end if`	`end if`
`end subroutine sub`	`end subroutine sub`
`end program test`	`end program test`