REAL (The GNU Fortran Compiler) (original) (raw)

program test_real complex :: x = (1.0, 2.0) print *, real(x), real(x,8), realpart(x) end program test_real