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/] [transfer_hollerith_1.f90] - Blame information for rev 551

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


! { dg-do compile }
! { dg-options "-O2" }
! PR 31972, ICE in transfer of Hollerith constant
  integer, dimension(1) :: i
  integer :: j
  i = (/ transfer(4HSOLR, 0) /)
 
  j = transfer(0, 4HSOLR) ! { dg-error "must not be HOLLERITH" }
end
 
! { dg-warning "Hollerith constant" "const" { target *-*-* } 6 }
 
! { dg-warning "Hollerith constant" "const" { target *-*-* } 8 }
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-O2" }`
3			`! PR 31972, ICE in transfer of Hollerith constant`
4			`integer, dimension(1) :: i`
5			`integer :: j`
6			`i = (/ transfer(4HSOLR, 0) /)`
7
8			`j = transfer(0, 4HSOLR) ! { dg-error "must not be HOLLERITH" }`
9			`end`
10
11			`! { dg-warning "Hollerith constant" "const" { target --* } 6 }`
12
13			`! { dg-warning "Hollerith constant" "const" { target --* } 8 }`
14

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [transfer_hollerith_1.f90] - Blame information for rev 551