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] - Blame information for rev 823

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


c { dg-do run { xfail mips-sgi-irix6* } } PR 16292
      program cabs_1
      complex      z0
      real         r0
      complex(kind=8)   z1
      real(kind=8)       r1
 
      z0 = cmplx(3.,4.)
      r0 = cabs(z0)
      if (r0 .ne. 5.) call abort
 
      z1 = dcmplx(3.d0,4.d0)
      r1 = zabs(z1)
      if (r1 .ne. 5.d0) call abort
      end

Line No.	Rev	Author	Line
1	149	jeremybenn	`c { dg-do run { xfail mips-sgi-irix6* } } PR 16292`
2			`program cabs_1`
3			`complex z0`
4			`real r0`
5			`complex(kind=8) z1`
6			`real(kind=8) r1`
7
8			`z0 = cmplx(3.,4.)`
9			`r0 = cabs(z0)`
10			`if (r0 .ne. 5.) call abort`
11
12			`z1 = dcmplx(3.d0,4.d0)`
13			`r1 = zabs(z1)`
14			`if (r1 .ne. 5.d0) call abort`
15			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [cabs.f] - Blame information for rev 823