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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr45738.f90] - Blame information for rev 747

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


PROGRAM TestInfinite
  integer(8) :: bit_pattern_NegInf_i8 = -4503599627370496_8
 
  integer(8) :: i
  real(8)    :: r
 
  r = transfer(bit_pattern_NegInf_i8_p,r)
  i = transfer(r,i)
 
END PROGRAM TestInfinite
 

Line No.	Rev	Author	Line
1	695	jeremybenn	`PROGRAM TestInfinite`
2			`integer(8) :: bit_pattern_NegInf_i8 = -4503599627370496_8`
3
4			`integer(8) :: i`
5			`real(8) :: r`
6
7			`r = transfer(bit_pattern_NegInf_i8_p,r)`
8			`i = transfer(r,i)`
9
10			`END PROGRAM TestInfinite`
11

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr45738.f90] - Blame information for rev 747