diff --git a/runtime/queries/fortran/folds.scm b/runtime/queries/fortran/folds.scm
index f62d9dd7b..01e24dd6c 100644
--- a/runtime/queries/fortran/folds.scm
+++ b/runtime/queries/fortran/folds.scm
@@ -7,5 +7,6 @@
  (derived_type_definition)
  (function)
  (subroutine)
+ (module_procedure)
  (interface)
-] @fold
\ No newline at end of file
+] @fold