intrinsic conjg
      complex a,b,c,d,aa,bb
      complex*16 cc,dd,ee
      ifail=0
      a=(1.0,0.0)
      r=a
      b=r
      c=(2.0,3.0)
      d=c
      c=d*c
      i=1
      if(a.eq.b)goto 1
      write(6,10)i
      ifail=1
  1   i=2
      if(a.eq.r)goto 2
      write(6,10)i
      ifail=i
  2   i=3
      if(r.eq.b)goto 3
      write(6,10)i
      ifail=i
  3   if(b.eq.r)goto 4
      write(6,10)i
      ifail=i
  4   a=(1.0,1.0)
      b=(-1.0,-1.0)
      aa=a
      bb=b
      i=4
      c=a*b
      aa=aa*bb
      if(c.eq.aa)goto 5
      write (6,10)i
  10  format (13h complex test,i3,6h fails)
      ifail=i
  5   i=5
      aa=a
      c=a/b
      aa=aa/bb
      if(c.eq.aa)goto 6
      write(6,10)i
      ifail=i
  6   c=(1.0,-1.0)
      i=6
      r=imag(c)
      if(r.eq.-1.0)goto 7
      write(6,10)i
      ifail=i
  7   i=7
      d=conjg(c)
      if(d.eq.a)goto 8
      write(6,10)i
      ifail=i
  8   i=8
      call cmplxfn2(conjg,c,d)
      if(d.eq.a)goto 9
      write(6,10)i
      ifail=i
  9   i=9
      ee=(1.0,1.0)
      cc=(1.0,-1.0)
      dd=conjg(cc)
      if(dd.eq.ee)goto 11
      write(6,10)i
      ifail=i
  11  if(ifail.eq.0)write(6,20)
  20  format(1h ,'cmpxtest passed')
      stop
      end

      subroutine cmplxfn2(cfn,c,d)
      complex c,d,cfn
      d=cfn(c)
      return
      end