Use "#if 0" to comment out code blocks

diff --git a/language.c b/language.c
index bd4f4327c5d71f6a89177a3a08ad5049e53bf757..f544ef3f6daa63e16fab08c7fea00fe025d2d73f 100644 (file)
--- a/language.c
+++ b/language.c
@@ -66,30 +66,30 @@ static const struct {
        {".TCC", "c++-header"},
        {".cu",  "cuda"},
        {".ic",  "cuda-output"},
-       /* Fixed form Fortran without preprocessing */
+       /* Fixed form Fortran without preprocessing: */
        {".f",   "f77"},
        {".for", "f77"},
        {".ftn", "f77"},
-       /* Fixed form Fortran with traditional preprocessing */
+       /* Fixed form Fortran with traditional preprocessing: */
        {".F",   "f77-cpp-input"},
        {".FOR", "f77-cpp-input"},
        {".fpp", "f77-cpp-input"},
        {".FPP", "f77-cpp-input"},
        {".FTN", "f77-cpp-input"},
-       /* Free form Fortran without preprocessing */
-       /* could generate modules, ignore for now!
+       /* Free form Fortran without preprocessing: */
+#if 0  /* Could generate modules, ignore for now! */
        {".f90", "f95"},
        {".f95", "f95"},
        {".f03", "f95"},
        {".f08", "f95"},
-       */
-       /* Free form Fortran with traditional preprocessing */
-  /* could generate modules, ignore for now!
+#endif
+       /* Free form Fortran with traditional preprocessing: */
+#if 0 /* Could generate modules, ignore for now! */
        {".F90", "f95-cpp-input"},
        {".F95", "f95-cpp-input"},
        {".F03", "f95-cpp-input"},
        {".F08", "f95-cpp-input"},
-       */
+#endif
        {NULL,  NULL}
 };
 
@@ -119,10 +119,10 @@ static const struct {
        {"assembler",                "assembler"},
        {"f77-cpp-input",            "f77"},
        {"f77",                      "f77"},
-       /* could generate module files, ignore for now!
+#if 0 /* Could generate module files, ignore for now! */
        {"f95-cpp-input",            "f95"},
        {"f95",                      "f95"},
-       */
+#endif
        {NULL,  NULL}
 };