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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [nan_7.f90] - Blame information for rev 774

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


! { dg-do run }
! { dg-options "-fno-range-check" }
! { dg-require-effective-target fortran_real_16 }
! { dg-require-effective-target fortran_integer_16 }
! PR47293 NAN not correctly read
character(len=200) :: str
real(16) :: r
integer(16) :: k2
integer(16), parameter :: quietnan = 170099645085600953110659059745250344960
r = 1.0
str = 'NAN' ; read(str,*) r
k2 = transfer(r,k2)
k2 = iand(k2, z'fff80000000000000000000000000000')
if (k2.ne.quietnan) call abort
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-fno-range-check" }`
3			`! { dg-require-effective-target fortran_real_16 }`
4			`! { dg-require-effective-target fortran_integer_16 }`
5			`! PR47293 NAN not correctly read`
6			`character(len=200) :: str`
7			`real(16) :: r`
8			`integer(16) :: k2`
9			`integer(16), parameter :: quietnan = 170099645085600953110659059745250344960`
10			`r = 1.0`
11			`str = 'NAN' ; read(str,*) r`
12			`k2 = transfer(r,k2)`
13			`k2 = iand(k2, z'fff80000000000000000000000000000')`
14			`if (k2.ne.quietnan) call abort`
15			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [nan_7.f90] - Blame information for rev 774