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

Subversion Repositories openrisc_me

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

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


! Test for the ISNAN intrinsic
!
! { dg-do run }
! { dg-add-options ieee }
! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
!
  implicit none
  real :: x
  x = -1.0
  x = sqrt(x)
  if (.not. isnan(x)) call abort
  x = 0.0
  x = x / x
  if (.not. isnan(x)) call abort
 
  x = 5.0
  if (isnan(x)) call abort
  x = huge(x)
  x = 2*x
  if (isnan(x)) call abort
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! Test for the ISNAN intrinsic`
2			`!`
3			`! { dg-do run }`
4			`! { dg-add-options ieee }`
5			`! { dg-skip-if "NaN not supported" { spu-- } { "*" } { "" } }`
6			`!`
7			`implicit none`
8			`real :: x`
9			`x = -1.0`
10			`x = sqrt(x)`
11			`if (.not. isnan(x)) call abort`
12			`x = 0.0`
13			`x = x / x`
14			`if (.not. isnan(x)) call abort`
15
16			`x = 5.0`
17			`if (isnan(x)) call abort`
18			`x = huge(x)`
19			`x = 2*x`
20			`if (isnan(x)) call abort`
21			`end`

Browse

Tools

Subversion Repositories openrisc_me

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