Next: COMPILER_VERSION, Previous: COMMAND_ARGUMENT_COUNT, Up: Intrinsic Procedures

`COMPLEX`

— Complex conversion function*Description*:`COMPLEX(X, Y)`

returns a complex number where`X`is converted to the real component and`Y`is converted to the imaginary component.*Standard*:- GNU extension
*Class*:- Elemental function
*Syntax*:`RESULT = COMPLEX(X, Y)`

*Arguments*:-
`X`The type may be `INTEGER`

or`REAL`

.`Y`The type may be `INTEGER`

or`REAL`

. *Return value*:- If
`X`and`Y`are both of`INTEGER`

type, then the return value is of default`COMPLEX`

type.If

`X`and`Y`are of`REAL`

type, or one is of`REAL`

type and one is of`INTEGER`

type, then the return value is of`COMPLEX`

type with a kind equal to that of the`REAL`

argument with the highest precision. *Example*:-
program test_complex integer :: i = 42 real :: x = 3.14 print *, complex(i, x) end program test_complex

*See also*:- CMPLX