gcc/testsuite/gfortran.dg/g77/cabs.f


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

c { dg-do run }
c { dg-xfail-run-if "PR target/16292" { mips-sgi-irix6* } { -O0 } }
      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