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

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! Suppress warnings about misaligned common blocks.`	`! Suppress warnings about misaligned common blocks.`
`! { dg-options "-w" }`	`! { dg-options "-w" }`
`! Check misaligned common blocks.`	`! Check misaligned common blocks.`
`program prog`	`program prog`
`common /block/ a, b, c`	`common /block/ a, b, c`
`integer(kind=1) a`	`integer(kind=1) a`
`integer b, c`	`integer b, c`
`a = 1`	`a = 1`
`b = HUGE(b)`	`b = HUGE(b)`
`c = 2`	`c = 2`
`call foo`	`call foo`
`end program`	`end program`
`subroutine foo`	`subroutine foo`
`common /block/ a, b, c`	`common /block/ a, b, c`
`integer(kind=1) a`	`integer(kind=1) a`
`integer b, c`	`integer b, c`
`if (a .ne. 1 .or. b .ne. HUGE(b) .or. c .ne. 2) call abort`	`if (a .ne. 1 .or. b .ne. HUGE(b) .or. c .ne. 2) call abort`
`end subroutine`	`end subroutine`