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/] [save_1.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`subroutine foo (b)`	`subroutine foo (b)`
`logical b`	`logical b`
`integer i, j`	`integer i, j`
`character*24 s`	`character*24 s`
`save`	`save`
`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`