<Example Program>

Program real_example
  Complex :: c(3) = [ (1,2),(3,4),(5,6) ]
  Print 1, Real(13), Real(c)
1 Format(4(2X,F0.5))
End Program

Execution Results

  13.00000  1.00000  3.00000  5.00000