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.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [pr23373-2.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`program main`	`program main`
`implicit none`	`implicit none`
`real, dimension (:), pointer :: x`	`real, dimension (:), pointer :: x`
`x => null ()`	`x => null ()`
`x => test ()`	`x => test ()`
`if (.not. associated (x)) call abort`	`if (.not. associated (x)) call abort`
`if (size (x) .ne. 10) call abort`	`if (size (x) .ne. 10) call abort`
`contains`	`contains`
`function test()`	`function test()`
`real, dimension (:), pointer :: test`	`real, dimension (:), pointer :: test`
`if (associated (x)) call abort`	`if (associated (x)) call abort`
`allocate (test (10))`	`allocate (test (10))`
`if (associated (x)) call abort`	`if (associated (x)) call abort`
`end function test`	`end function test`
`end program main`	`end program main`