1      program cabs_1
2      complex      z0
3      real         r0
4      complex*16   z1
5      real*8       r1
6
7      z0 = cmplx(3.,4.)
8      r0 = cabs(z0)
9      if (r0 .ne. 5.) call abort
10
11      z1 = dcmplx(3.d0,4.d0)
12      r1 = zabs(z1)
13      if (r1 .ne. 5.d0) call abort
14      end
15