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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [cabs.f] - Diff between revs 154 and 816

Rev 154	Rev 816
`c { dg-do run { xfail mips-sgi-irix6* } } PR 16292`	`c { dg-do run { xfail mips-sgi-irix6* } } PR 16292`
`program cabs_1`	`program cabs_1`
`complex z0`	`complex z0`
`real r0`	`real r0`
`complex(kind=8) z1`	`complex(kind=8) z1`
`real(kind=8) r1`	`real(kind=8) r1`

`z0 = cmplx(3.,4.)`	`z0 = cmplx(3.,4.)`
`r0 = cabs(z0)`	`r0 = cabs(z0)`
`if (r0 .ne. 5.) call abort`	`if (r0 .ne. 5.) call abort`

`z1 = dcmplx(3.d0,4.d0)`	`z1 = dcmplx(3.d0,4.d0)`
`r1 = zabs(z1)`	`r1 = zabs(z1)`
`if (r1 .ne. 5.d0) call abort`	`if (r1 .ne. 5.d0) call abort`
`end`	`end`