[Flang] Allow compile *.f03, *.f08 file
Fix issue [#61260](https://github.com/llvm/llvm-project/issues/61260) Reviewed By: awarzynski Differential Revision: https://reviews.llvm.org/D145845
This commit is contained in:
@@ -331,6 +331,10 @@ 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)
|
||||
|
||||
5
flang/test/Driver/supported-suffices/f03-suffix.f03
Normal file
5
flang/test/Driver/supported-suffices/f03-suffix.f03
Normal file
@@ -0,0 +1,5 @@
|
||||
! RUN: %flang -### %s 2>&1 | FileCheck %s
|
||||
|
||||
! CHECK: "{{.*}}flang-new" "-fc1" {{.*}} "-o" "{{.*}}.o"
|
||||
program f03
|
||||
end program f03
|
||||
5
flang/test/Driver/supported-suffices/f08-suffix.f08
Normal file
5
flang/test/Driver/supported-suffices/f08-suffix.f08
Normal file
@@ -0,0 +1,5 @@
|
||||
! RUN: %flang -### %s 2>&1 | FileCheck %s
|
||||
|
||||
! CHECK: "{{.*}}flang-new" "-fc1" {{.*}} "-o" "{{.*}}.o"
|
||||
program f08
|
||||
end program f08
|
||||
Reference in New Issue
Block a user