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_2.f90] - Blame information for rev 414

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


! Test for the ISNAN intrinsic on constants
!
! { dg-do run }
! { dg-options "-fno-range-check" }
! { dg-add-options ieee }
! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
!
  implicit none
  character(len=1) :: s
  write(s,'(L1)') isnan(0.)
  if (s /= 'F') call abort
 
  write(s,'(L1)') isnan(exp(huge(0.)))
  if (s /= 'F') call abort
 
  write(s,'(L1)') isnan(0./0.)
  if (s /= 'T') call abort
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! Test for the ISNAN intrinsic on constants`
2			`!`
3			`! { dg-do run }`
4			`! { dg-options "-fno-range-check" }`
5			`! { dg-add-options ieee }`
6			`! { dg-skip-if "NaN not supported" { spu-- } { "*" } { "" } }`
7			`!`
8			`implicit none`
9			`character(len=1) :: s`
10			`write(s,'(L1)') isnan(0.)`
11			`if (s /= 'F') call abort`
12
13			`write(s,'(L1)') isnan(exp(huge(0.)))`
14			`if (s /= 'F') call abort`
15
16			`write(s,'(L1)') isnan(0./0.)`
17			`if (s /= 'T') call abort`
18			`end`

Browse

Tools

Subversion Repositories openrisc_me

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