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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR fortran/28276
! Original code submitted by Harald Anlauf
! Converted to Dejagnu for the testsuite by Steven G. Kargl
!
program gfcbug36
  implicit none
  real, parameter :: one = 1.0
  real :: a = one
 
  if (fraction(a) /= 0.5) call abort
  if (fraction(one) /= 0.5) call abort
  if (fraction(1.0) /= 0.5) call abort
 
  if (exponent(a) /= 1.0) call abort
  if (exponent(one) /= 1.0) call abort
  if (exponent (1.0) /= 1.0) call abort
 
  if (scale(fraction(a),   exponent(a))   / a   /= 1.) call abort
  if (scale(fraction(one), exponent(one)) / one /= 1.) call abort
  if (scale(fraction(1.0), exponent(1.0)) / 1.0 /= 1.) call abort
 
end program gfcbug36

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR fortran/28276`
3			`! Original code submitted by Harald Anlauf`
4			`! Converted to Dejagnu for the testsuite by Steven G. Kargl`
5			`!`
6			`program gfcbug36`
7			`implicit none`
8			`real, parameter :: one = 1.0`
9			`real :: a = one`
10
11			`if (fraction(a) /= 0.5) call abort`
12			`if (fraction(one) /= 0.5) call abort`
13			`if (fraction(1.0) /= 0.5) call abort`
14
15			`if (exponent(a) /= 1.0) call abort`
16			`if (exponent(one) /= 1.0) call abort`
17			`if (exponent (1.0) /= 1.0) call abort`
18
19			`if (scale(fraction(a), exponent(a)) / a /= 1.) call abort`
20			`if (scale(fraction(one), exponent(one)) / one /= 1.) call abort`
21			`if (scale(fraction(1.0), exponent(1.0)) / 1.0 /= 1.) call abort`
22
23			`end program gfcbug36`

Browse

Tools

Subversion Repositories openrisc

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