Revert "Support for Fortran 77"

This reverts commit c0875cf2dae56f66076ee01e0ca6e723ba999199.

Fixes #342.

diff --git a/src/language.c b/src/language.c
index 4c4a998bc8461ac9fe2a385ff7a1dbd9dc9ddad1..cfc4398e80c6222a7acf8d1cab9a76f6719b5628 100644 (file)
--- a/src/language.c
+++ b/src/language.c
@@ -64,30 +64,6 @@ static const struct {
        {".TCC", "c++-header"},
        {".cu",  "cuda"},
        {".ic",  "cuda-output"},
-       // Fixed form Fortran without preprocessing:
-       {".f",   "f77"},
-       {".for", "f77"},
-       {".ftn", "f77"},
-       // 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:
-#if 0 // Could generate modules, ignore for now!
-       {".f90", "f95"},
-       {".f95", "f95"},
-       {".f03", "f95"},
-       {".f08", "f95"},
-#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}
 };
 
@@ -113,12 +89,6 @@ static const struct {
        {"cuda",                     "cuda-output"},
        {"assembler-with-cpp",       "assembler"},
        {"assembler",                "assembler"},
-       {"f77-cpp-input",            "f77"},
-       {"f77",                      "f77"},
-#if 0 // Could generate module files, ignore for now!
-       {"f95-cpp-input",            "f95"},
-       {"f95",                      "f95"},
-#endif
        {NULL,  NULL}
 };