code: def test_fcode_complex():
      import sympy.utilities.codegen
  
      sympy.utilities.codegen.COMPLEX_ALLOWED = True
      x = Symbol("x", real=True)
      y = Symbol("y", real=True)
      result = codegen(
          ("test", x + y), "f95", "test", header=False, empty=False
      )
      source = result[0][1]
      expected = (
          "REAL*8 function test(x, y)\n"
          "implicit none\n"
          "REAL*8, intent(in) :: x\n"
          "REAL*8, intent(in) :: y\n"
          "test = x + y\n"
          "end function\n"
      )
      assert source == expected
      x = Symbol("x")
      y = Symbol("y", real=True)
      result = codegen(
          ("test", x + y), "f95", "test", header=False, empty=False
      )
      source = result[0][1]
      expected = (
          "COMPLEX*16 function test(x, y)\n"
          "implicit none\n"
          "COMPLEX*16, intent(in) :: x\n"
          "REAL*8, intent(in) :: y\n"
          "test = x + y\n"
          "end function\n"
      )
      assert source == expected
      sympy.utilities.codegen.COMPLEX_ALLOWED = False
  
imports: from io import StringIO
  from sympy.core import symbols, Eq, pi, Catalan, Lambda, Dummy
  from sympy.core.relational import Equality
  from sympy.core.symbol import Symbol
  from sympy.functions.special.error_functions import erf
  from sympy.integrals.integrals import Integral
  from sympy.matrices import Matrix, MatrixSymbol
  from sympy.utilities.codegen import codegen, make_routine, CCodeGen, C89CodeGen, C99CodeGen, InputArgument, CodeGenError, FCodeGen, CodeGenArgumentListError, OutputArgument, InOutArgument
  from sympy.testing.pytest import raises
  from sympy.utilities.lambdify import implemented_function
label_desc: Use image node_id 59 for calling a global function with example usage: test_fcode_complex() without return types