code: def test_dummy_loops_f95():
      from sympy.tensor import IndexedBase, Idx
  
      i, m = symbols("i m", integer=True, cls=Dummy)
      x = IndexedBase("x")
      y = IndexedBase("y")
      i = Idx(i, m)
      expected = (
          "subroutine test_dummies(m_%(mcount)i, x, y)\n"
          "implicit none\n"
          "INTEGER*4, intent(in) :: m_%(mcount)i\n"
          "REAL*8, intent(in), dimension(1:m_%(mcount)i) :: x\n"
          "REAL*8, intent(out), dimension(1:m_%(mcount)i) :: y\n"
          "INTEGER*4 :: i_%(icount)i\n"
          "do i_%(icount)i = 1, m_%(mcount)i\n"
          "   y(i_%(icount)i) = x(i_%(icount)i)\n"
          "end do\n"
          "end subroutine\n"
      ) % {"icount": i.label.dummy_index, "mcount": m.dummy_index}
      r = make_routine("test_dummies", Eq(y[i], x[i]))
      c = FCodeGen()
      code = get_string(c.dump_f95, [r])
      assert code == expected
  
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 43 for calling a global function with example usage: test_dummy_loops_f95() without return types