1 //===- FrontendOptions.cpp ------------------------------------------------===// 2 // 3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4 // See https://llvm.org/LICENSE.txt for license information. 5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6 // 7 //===----------------------------------------------------------------------===// 8 9 #include "flang/Frontend/FrontendOptions.h" 10 11 using namespace Fortran::frontend; 12 13 bool Fortran::frontend::isFixedFormSuffix(llvm::StringRef suffix) { 14 // Note: Keep this list in-sync with flang/test/lit.cfg.py 15 return suffix == "f77" || suffix == "f" || suffix == "F" || suffix == "ff" || 16 suffix == "for" || suffix == "FOR" || suffix == "fpp" || suffix == "FPP"; 17 } 18 19 bool Fortran::frontend::isFreeFormSuffix(llvm::StringRef suffix) { 20 // Note: Keep this list in-sync with flang/test/lit.cfg.py 21 // TODO: Add Cuda Fortan files (i.e. `*.cuf` and `*.CUF`). 22 return suffix == "f90" || suffix == "F90" || suffix == "ff90" || 23 suffix == "f95" || suffix == "F95" || suffix == "ff95" || 24 suffix == "f03" || suffix == "F03" || suffix == "f08" || 25 suffix == "F08" || suffix == "f18" || suffix == "F18"; 26 } 27 28 bool Fortran::frontend::mustBePreprocessed(llvm::StringRef suffix) { 29 return suffix == "F" || suffix == "FOR" || suffix == "fpp" || 30 suffix == "FPP" || suffix == "F90" || suffix == "F95" || 31 suffix == "F03" || suffix == "F08" || suffix == "F18"; 32 } 33 34 InputKind FrontendOptions::GetInputKindForExtension(llvm::StringRef extension) { 35 if (isFixedFormSuffix(extension) || isFreeFormSuffix(extension)) { 36 return Language::Fortran; 37 } 38 return Language::Unknown; 39 } 40