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