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/] [boz_13.f90] - Blame information for rev 313

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


! { dg-do run }
 
! PR fortran/36214
! For BOZ-initialization of floats, the precision used to be wrong sometimes.
 
implicit none
   real, parameter :: r = 0.0
   real(kind=8), parameter :: rd = real (z'00000000&
                                          &402953FD', 8)
 
   if (real (z'00000000&
              &402953FD', 8) /= rd) call abort
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2
3			`! PR fortran/36214`
4			`! For BOZ-initialization of floats, the precision used to be wrong sometimes.`
5
6			`implicit none`
7			`real, parameter :: r = 0.0`
8			`real(kind=8), parameter :: rd = real (z'00000000&`
9			`&402953FD', 8)`
10
11			`if (real (z'00000000&`
12			`&402953FD', 8) /= rd) call abort`
13			`end`

Browse

Tools

Subversion Repositories openrisc_me

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