＜COMPLEX Example Program＞

Program complex_example
  Complex :: a
  a = (1, 2)
  Print *,a
End Program

---

■ Execution Results

 (1.0000000,2.0000000)