HACK: revert to old-style Fortran array syntax

Author: MaximeVdB

sphinxfortran/crackfortran.py

@@ -651,10 +651,13 @@ def crackline(line, reset=0):
     global filepositiontext, currentfilename, neededmodule, expectbegin
     global skipblocksuntil, skipemptyends, previous_context, gotnextfile
 
-    line = line.replace('class', 'type')  # DIRTY HACK
-    line = line.replace('type is', 'xxx is')  # (yet another) DIRTY HACK
-    if line.strip() in ['interface', 'end interface']:
-        line = '\n'
+    if not line.strip().startswith('!'):
+        line = line.replace('class', 'type')  # DIRTY HACK
+        line = line.replace('type is', 'xxx is')  # (yet another) DIRTY HACK
+        if line.strip() in ['interface', 'end interface']:
+            line = '\n'
+        line = line.replace('[', '(/')
+        line = line.replace(']', '/)')
 
     _, has_semicolon = split_by_unquoted(line, ";")
     if has_semicolon and not (f2pyenhancementspattern[0].match(line) or