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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [plusconst_1.f90] - Blame information for rev 338

Details | Compare with Previous | View Log


! PR14005
! The GMP conversion routines object to a leading "+"
program plusconst_1
  implicit none
  real p
  integer i
  data p /+3.1415/
  data i /+42/
  real :: q = +1.234
  integer :: j = +100
 
  if ((p .ne. 3.1415) .or. (i .ne. 42) .or. (q .ne. 1.234) .or. (j .ne. 100)) &
    call abort
end program
 

Line No.	Rev	Author	Line
1	303	jeremybenn	`! PR14005`
2			`! The GMP conversion routines object to a leading "+"`
3			`program plusconst_1`
4			`implicit none`
5			`real p`
6			`integer i`
7			`data p /+3.1415/`
8			`data i /+42/`
9			`real :: q = +1.234`
10			`integer :: j = +100`
11
12			`if ((p .ne. 3.1415) .or. (i .ne. 42) .or. (q .ne. 1.234) .or. (j .ne. 100)) &`
13			`call abort`
14			`end program`
15

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [plusconst_1.f90] - Blame information for rev 338