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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [loc_1.f90] - Blame information for rev 853

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


! { dg-do run }
 
! This test is here to prevent a regression in gfc_conv_intrinsic_loc.
! Taking the loc of something in a common block was a special case
! that caused in internal compiler error in gcc/expr.c, in
! expand_expr_addr_expr_1().
program test
  common /targ/targ
  integer targ(10)
  call fn
end program test
 
subroutine fn
  common /targ/targ
  integer targ(10)
  call foo (loc (targ)) ! Line that caused ICE
end subroutine fn
 
subroutine foo (ii)
  common /targ/targ
  integer targ(10)
  integer ii
  targ(2) = ii
end subroutine foo
 

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2
3			`! This test is here to prevent a regression in gfc_conv_intrinsic_loc.`
4			`! Taking the loc of something in a common block was a special case`
5			`! that caused in internal compiler error in gcc/expr.c, in`
6			`! expand_expr_addr_expr_1().`
7			`program test`
8			`common /targ/targ`
9			`integer targ(10)`
10			`call fn`
11			`end program test`
12
13			`subroutine fn`
14			`common /targ/targ`
15			`integer targ(10)`
16			`call foo (loc (targ)) ! Line that caused ICE`
17			`end subroutine fn`
18
19			`subroutine foo (ii)`
20			`common /targ/targ`
21			`integer targ(10)`
22			`integer ii`
23			`targ(2) = ii`
24			`end subroutine foo`
25

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [loc_1.f90] - Blame information for rev 853