[flang-commits] [flang] 56cc0bb - Revert "[Flang] Allow compile *.f03, *.f08 file"

Shao-Ce SUN via flang-commits flang-commits at lists.llvm.org
Sat Mar 11 08:08:32 PST 2023


Author: Shao-Ce SUN
Date: 2023-03-12T00:06:09+08:00
New Revision: 56cc0bbe41fd41fb0766062ca0975eba64e92447

URL: https://github.com/llvm/llvm-project/commit/56cc0bbe41fd41fb0766062ca0975eba64e92447
DIFF: https://github.com/llvm/llvm-project/commit/56cc0bbe41fd41fb0766062ca0975eba64e92447.diff

LOG: Revert "[Flang] Allow compile *.f03, *.f08 file"

The test will fail in the MSVC environment.

This reverts commit 171794de533b400edb47f0e6df4375a7ae052fc8.

Added: 
    

Modified: 
    clang/lib/Driver/Types.cpp

Removed: 
    flang/test/Driver/supported-suffices/f03-suffix.f03
    flang/test/Driver/supported-suffices/f08-suffix.f08


################################################################################
diff  --git a/clang/lib/Driver/Types.cpp b/clang/lib/Driver/Types.cpp
index 7d6308d757bc7..a890cc58ee421 100644
--- a/clang/lib/Driver/Types.cpp
+++ b/clang/lib/Driver/Types.cpp
@@ -331,10 +331,6 @@ types::ID types::lookupTypeForExtension(llvm::StringRef Ext) {
       .Case("cui", TY_PP_CUDA)
       .Case("cxx", TY_CXX)
       .Case("CXX", TY_CXX)
-      .Case("F03", TY_Fortran)
-      .Case("f03", TY_PP_Fortran)
-      .Case("F08", TY_Fortran)
-      .Case("f08", TY_PP_Fortran)
       .Case("F90", TY_Fortran)
       .Case("f90", TY_PP_Fortran)
       .Case("F95", TY_Fortran)

diff  --git a/flang/test/Driver/supported-suffices/f03-suffix.f03 b/flang/test/Driver/supported-suffices/f03-suffix.f03
deleted file mode 100644
index e1c74e065ca14..0000000000000
--- a/flang/test/Driver/supported-suffices/f03-suffix.f03
+++ /dev/null
@@ -1,5 +0,0 @@
-! RUN: %flang -### %s 2>&1 | FileCheck %s
-
-! CHECK: "{{.*}}flang-new" "-fc1" {{.*}} "/tmp/{{.*}}.o"
-program f03
-end program f03

diff  --git a/flang/test/Driver/supported-suffices/f08-suffix.f08 b/flang/test/Driver/supported-suffices/f08-suffix.f08
deleted file mode 100644
index e9039d14529b1..0000000000000
--- a/flang/test/Driver/supported-suffices/f08-suffix.f08
+++ /dev/null
@@ -1,5 +0,0 @@
-! RUN: %flang -### %s 2>&1 | FileCheck %s
-
-! CHECK: "{{.*}}flang-new" "-fc1" {{.*}} "/tmp/{{.*}}.o"
-program f08
-end program f08


        


More information about the flang-commits mailing list