URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [plusconst_1.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! PR14005`	`! PR14005`
`! The GMP conversion routines object to a leading "+"`	`! The GMP conversion routines object to a leading "+"`
`program plusconst_1`	`program plusconst_1`
`implicit none`	`implicit none`
`real p`	`real p`
`integer i`	`integer i`
`data p /+3.1415/`	`data p /+3.1415/`
`data i /+42/`	`data i /+42/`
`real :: q = +1.234`	`real :: q = +1.234`
`integer :: j = +100`	`integer :: j = +100`

`if ((p .ne. 3.1415) .or. (i .ne. 42) .or. (q .ne. 1.234) .or. (j .ne. 100)) &`	`if ((p .ne. 3.1415) .or. (i .ne. 42) .or. (q .ne. 1.234) .or. (j .ne. 100)) &`
`call abort`	`call abort`
`end program`	`end program`