@@ -7103,6 +7103,8 @@ def module_dir : JoinedOrSeparate<["-"], "module-dir">, MetaVarName<"<dir>">,
7103
7103
It is also added to the list of directories to be searched by an USE statement.
7104
7104
The default is the current directory.}]>;
7105
7105
7106
+ def module_dir_EQ : Joined<["-"], "module-dir=">, Alias<module_dir>;
7107
+
7106
7108
def ffixed_form : Flag<["-"], "ffixed-form">, Group<f_Group>,
7107
7109
HelpText<"Process source files in fixed form">;
7108
7110
def ffree_form : Flag<["-"], "ffree-form">, Group<f_Group>,
@@ -7137,11 +7139,10 @@ def fintrinsic_modules_path : Separate<["-"], "fintrinsic-modules-path">, Group<
7137
7139
HelpText<"Specify where to find the compiled intrinsic modules">,
7138
7140
DocBrief<[{This option specifies the location of pre-compiled intrinsic modules,
7139
7141
if they are not in the default location expected by the compiler.}]>;
7140
- def fintrinsic_modules_path_EQ : Joined<["-"], "fintrinsic-modules-path=">, Group<f_Group>, MetaVarName<"<dir>">, Visibility<[FlangOption, FC1Option]>, // TODO: MK: Not yet implemented
7141
- HelpText<"Specify where to find the compiled intrinsic modules">,
7142
- DocBrief<[{This option specifies the location of pre-compiled intrinsic modules,
7143
- if they are not in the default location expected by the compiler.}]>;
7144
-
7142
+ def fintrinsic_modules_path_EQ : Joined<["-"], "fintrinsic-modules-path=">, Group<f_Group>, Visibility<[FlangOption, FC1Option]>,
7143
+ Alias<fintrinsic_modules_path>;
7144
+
7145
+
7145
7146
defm backslash : OptInFC1FFlag<"backslash", "Specify that backslash in string introduces an escape character">;
7146
7147
defm xor_operator : OptInFC1FFlag<"xor-operator", "Enable .XOR. as a synonym of .NEQV.">;
7147
7148
defm logical_abbreviations : OptInFC1FFlag<"logical-abbreviations", "Enable logical abbreviations">;
0 commit comments