1! Testcase for the COMPLEX intrinsic 2! { dg-do run } 3 if (complex(1_1, -1_2) /= complex(1.0_4, -1.0_8)) STOP 1 4 if (complex(1_4, -1.0) /= complex(1.0_4, -1_8)) STOP 2 5 end 6