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