qreal32 + qreal64 operator.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(qreal32), | intent(in) | :: | lhs | Left hand side. |
||
| type(qreal64), | intent(in) | :: | rhs | Right hand side. |
Operator result.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
function qreal32_add_qreal64(lhs, rhs) result(opr)
!---------------------------------------------------------------------------------------------------------------------------------
!< `qreal32 + qreal64` operator.
!---------------------------------------------------------------------------------------------------------------------------------
type(qreal32), intent(in) :: lhs !< Left hand side.
type(qreal64), intent(in) :: rhs !< Right hand side.
type(qreal64) :: opr !< Operator result.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
opr = lhs
opr = opr + rhs
!---------------------------------------------------------------------------------------------------------------------------------
endfunction qreal32_add_qreal64