@@ -7101,6 +7101,7 @@ defm xor_operator : OptInFC1FFlag<"xor-operator", "Enable .XOR. as a synonym of
71017101defm logical_abbreviations : OptInFC1FFlag<"logical-abbreviations", "Enable logical abbreviations">;
71027102defm implicit_none : OptInFC1FFlag<"implicit-none", "No implicit typing allowed unless overridden by IMPLICIT statements">;
71037103defm underscoring : OptInFC1FFlag<"underscoring", "Appends one trailing underscore to external names">;
7104+ defm offload_global_filtering : OptInFC1FFlag<"offload-global-filtering", "Enable/disable OpenMP global filtering pass">;
71047105defm ppc_native_vec_elem_order: BoolOptionWithoutMarshalling<"f", "ppc-native-vector-element-order",
71057106 PosFlag<SetTrue, [], [ClangOption], "Specifies PowerPC native vector element order (default)">,
71067107 NegFlag<SetFalse, [], [ClangOption], "Specifies PowerPC non-native vector element order">>;
@@ -7121,6 +7122,10 @@ defm loop_versioning : BoolOptionWithoutMarshalling<"f", "version-loops-for-stri
71217122
71227123def fhermetic_module_files : Flag<["-"], "fhermetic-module-files">, Group<f_Group>,
71237124 HelpText<"Emit hermetic module files (no nested USE association)">;
7125+
7126+ def do_concurrent_parallel_EQ : Joined<["-"], "fdo-concurrent-parallel=">,
7127+ HelpText<"Try to map `do concurrent` loops to OpenMP (on host or device)">,
7128+ Values<"none,host,device">;
71247129} // let Visibility = [FC1Option, FlangOption]
71257130
71267131def J : JoinedOrSeparate<["-"], "J">,
@@ -8502,7 +8507,7 @@ def source_date_epoch : Separate<["-"], "source-date-epoch">,
85028507// CUDA Options
85038508//===----------------------------------------------------------------------===//
85048509
8505- let Visibility = [CC1Option] in {
8510+ let Visibility = [CC1Option, FC1Option ] in {
85068511
85078512def fcuda_is_device : Flag<["-"], "fcuda-is-device">,
85088513 HelpText<"Generate code for CUDA device">,
0 commit comments