URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [common_4.f90] - Blame information for rev 399

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! Suppress warnings about misaligned common blocks.`
3			`! { dg-options "-w" }`
4			`! Check misaligned common blocks.`
5			`program prog`
6			`common /block/ a, b, c`
7			`integer(kind=1) a`
8			`integer b, c`
9			`a = 1`
10			`b = HUGE(b)`
11			`c = 2`
12			`call foo`
13			`end program`
14			`subroutine foo`
15			`common /block/ a, b, c`
16			`integer(kind=1) a`
17			`integer b, c`
18			`if (a .ne. 1 .or. b .ne. HUGE(b) .or. c .ne. 2) call abort`
19			`end subroutine`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [common_4.f90] - Blame information for rev 399