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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [ishft_2.f90] - Blame information for rev 199

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


! { dg-do run }
program ishft_2
  if ( ishftc(3, 2, 3) /= 5 ) call abort()
  if ( ishftc(256+3, 2, 3) /= 256+5 ) call abort()
  if ( ishftc(1_4, 31)+1 /= -huge(1_4) ) call abort()
end program

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`program ishft_2`
3			`if ( ishftc(3, 2, 3) /= 5 ) call abort()`
4			`if ( ishftc(256+3, 2, 3) /= 256+5 ) call abort()`
5			`if ( ishftc(1_4, 31)+1 /= -huge(1_4) ) call abort()`
6			`end program`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [ishft_2.f90] - Blame information for rev 199