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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [save_1.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { dg-options "-O2 -fno-automatic" }`	`! { dg-options "-O2 -fno-automatic" }`
`subroutine foo (b)`	`subroutine foo (b)`
`logical b`	`logical b`
`integer i, j`	`integer i, j`
`character*24 s`	`character*24 s`
`save i`	`save i`
`if (b) then`	`if (b) then`
`i = 26`	`i = 26`
`j = 131`	`j = 131`
`s = 'This is a test string'`	`s = 'This is a test string'`
`else`	`else`
`if (i .ne. 26 .or. j .ne. 131) call abort`	`if (i .ne. 26 .or. j .ne. 131) call abort`
`if (s .ne. 'This is a test string') call abort`	`if (s .ne. 'This is a test string') call abort`
`end if`	`end if`
`end subroutine foo`	`end subroutine foo`
`subroutine bar (s)`	`subroutine bar (s)`
`character*42 s`	`character*42 s`
`if (s .ne. '0123456789012345678901234567890123456') call abort`	`if (s .ne. '0123456789012345678901234567890123456') call abort`
`call foo (.false.)`	`call foo (.false.)`
`end subroutine bar`	`end subroutine bar`
`subroutine baz`	`subroutine baz`
`character*42 s`	`character*42 s`
`! Just clobber stack a little bit.`	`! Just clobber stack a little bit.`
`s = '0123456789012345678901234567890123456'`	`s = '0123456789012345678901234567890123456'`
`call bar (s)`	`call bar (s)`
`end subroutine baz`	`end subroutine baz`
`call foo (.true.)`	`call foo (.true.)`
`call baz`	`call baz`
`call foo (.false.)`	`call foo (.false.)`
`end`	`end`