1 program foo 2 complex*16 z0, z1, z2 3 4 z0 = dcmplx(0.,.5) 5 z1 = 1./z0 6 if (z1 .ne. dcmplx(0.,-2)) call abort 7 8 z0 = 10.*z0 9 if (z0 .ne. dcmplx(0.,5.)) call abort 10 11 z2 = cmplx(1.,2.) 12 z1 = z0/z2 13 if (z1 .ne. dcmplx(2.,1.)) call abort 14 15 z1 = z0*z2 16 if (z1 .ne. dcmplx(-10.,5.)) call abort 17 end 18 19