diff --git a/examples/arkode/F2003_serial/ark_bruss1D_FEM_klu_f2003.f90 b/examples/arkode/F2003_serial/ark_bruss1D_FEM_klu_f2003.f90
index b0b0800ccd..e92a639a1e 100644
--- a/examples/arkode/F2003_serial/ark_bruss1D_FEM_klu_f2003.f90
+++ b/examples/arkode/F2003_serial/ark_bruss1D_FEM_klu_f2003.f90
@@ -90,7 +90,8 @@ module Bruss1DFEMKLU_UserData
   ! function that maps 2D data into 1D address space
   ! (0-based since CSR matrix will be sent to C solver)
   integer(c_int64_t) function idx(ix, ivar)
-    integer(c_int) :: ivar, ix
+    integer(c_int64_t):: ix
+    integer(c_int) :: ivar
     idx = neqreal*(ix - 1) + ivar - 1
   end function idx