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/] [whole_file_5.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do "compile" }`	`! { dg-do "compile" }`
`! { dg-options "-O3 -fwhole-file -fdump-tree-optimized" }`	`! { dg-options "-O3 -fwhole-file -fdump-tree-optimized" }`
`! { dg-add-options bind_pic_locally }`	`! { dg-add-options bind_pic_locally }`
`!`	`!`
`! Check that inlining of functions declared BEFORE usage works.`	`! Check that inlining of functions declared BEFORE usage works.`
`! If yes, then the dump does not contain a call to F().`	`! If yes, then the dump does not contain a call to F().`
`!`	`!`

`INTEGER FUNCTION f()`	`INTEGER FUNCTION f()`
`f = 42`	`f = 42`
`END FUNCTION`	`END FUNCTION`

`PROGRAM main`	`PROGRAM main`
`INTEGER :: a, f`	`INTEGER :: a, f`
`a = f()`	`a = f()`
`print *, a, f()`	`print *, a, f()`
`END PROGRAM`	`END PROGRAM`

`! { dg-final { scan-tree-dump-times "= f \\(\\)" 0 "optimized" } }`	`! { dg-final { scan-tree-dump-times "= f \\(\\)" 0 "optimized" } }`
`! { dg-final { cleanup-tree-dump "optimized" } }`	`! { dg-final { cleanup-tree-dump "optimized" } }`