diff --git a/lang/fortran/comp/mk_tokdefs b/lang/fortran/comp/mk_tokdefs
new file mode 100755
index 000000000..3b035d750
--- /dev/null
+++ b/lang/fortran/comp/mk_tokdefs
@@ -0,0 +1 @@
+grep -n . | sed 's/\([^:]*\):\(.*\)/#define \2 \1/'