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