1 files changed, 320 insertions, 0 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
new file mode 100644
index 00000000000..7d6d8f31efc
--- /dev/null
+++ b/gcc/fortran/options.c
@@ -0,0 +1,320 @@
+/* Parse and display command line options.
+   Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
+   Contributed by Andy Vaught
+
+This file is part of GNU G95.
+
+GNU G95 is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU G95 is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU G95; see the file COPYING.  If not, write to
+the Free Software Foundation, 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+#include <string.h>
+#include <stdlib.h>
+
+#include "config.h"
+#include "system.h"
+#include "coretypes.h"
+#include "tree.h"
+#include "flags.h"
+#include "intl.h"
+#include "opts.h"
+#include "options.h"
+#include "tree-inline.h"
+
+#include "gfortran.h"
+
+gfc_option_t gfc_option;
+
+
+/* Get ready for options handling.  */
+
+unsigned int
+gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
+		  const char **argv ATTRIBUTE_UNUSED)
+{
+
+  gfc_option.source = NULL;
+  gfc_option.module_dir = NULL;
+  gfc_option.source_form = FORM_UNKNOWN;
+  gfc_option.fixed_line_length = 72;
+  gfc_option.max_identifier_length = GFC_MAX_SYMBOL_LEN;
+  gfc_option.verbose = 0;
+
+  gfc_option.warn_aliasing = 0;
+  gfc_option.warn_conversion = 0;
+  gfc_option.warn_implicit_interface = 0;
+  gfc_option.warn_line_truncation = 0;
+  gfc_option.warn_surprising = 0;
+  gfc_option.warn_unused_labels = 0;
+
+  gfc_option.flag_dollar_ok = 0;
+  gfc_option.flag_underscoring = 1;
+  gfc_option.flag_second_underscore = 1;
+  gfc_option.flag_implicit_none = 0;
+  gfc_option.flag_max_stack_var_size = 32768;
+  gfc_option.flag_module_access_private = 0;
+  gfc_option.flag_no_backend = 0;
+  gfc_option.flag_pack_derived = 0;
+  gfc_option.flag_repack_arrays = 0;
+
+  gfc_option.q_kind = gfc_default_double_kind ();
+  gfc_option.i8 = 0;
+  gfc_option.r8 = 0;
+  gfc_option.d8 = 0;
+
+  flag_argument_noalias = 2;
+
+  gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
+    | GFC_STD_F2003_OBS | GFC_STD_F2003_DEL | GFC_STD_F2003 | GFC_STD_GNU;
+  gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
+    | GFC_STD_F2003 | GFC_STD_GNU;
+
+  return CL_F95;
+}
+
+
+/* Finalize commandline options.  */
+
+bool
+gfc_post_options (const char **pfilename)
+{
+  const char *filename = *pfilename;
+
+  /* Verify the input file name.  */
+  if (!filename || strcmp (filename, "-") == 0)
+    {
+      filename = "";
+    }
+
+  gfc_option.source = filename;
+
+  flag_inline_trees = 1;
+
+  /* Use tree inlining.  */
+  if (!flag_no_inline)
+    flag_no_inline = 1;
+  if (flag_inline_functions)
+    {
+      flag_inline_trees = 2;
+      flag_inline_functions = 0;
+    }
+  
+  return false;
+}
+
+
+/* Set the options for -Wall.  */
+
+static void
+set_Wall (void)
+{
+
+  gfc_option.warn_aliasing = 1;
+  gfc_option.warn_line_truncation = 1;
+  gfc_option.warn_surprising = 1;
+  gfc_option.warn_unused_labels = 1;
+
+  set_Wunused (1);
+  warn_return_type = 1;
+  warn_switch = 1;
+
+  /* We save the value of warn_uninitialized, since if they put
+     -Wuninitialized on the command line, we need to generate a
+     warning about not using it without also specifying -O.  */
+
+  if (warn_uninitialized != 1)
+    warn_uninitialized = 2;
+}
+
+
+static void
+gfc_handle_module_path_options (const char *arg)
+{
+
+  if (gfc_option.module_dir != NULL)
+    {
+      gfc_status ("gfortran: Only one -M option allowed\n");
+      exit (3);
+    }
+
+  if (arg == NULL)
+    {
+      gfc_status ("gfortran: Directory required after -M\n");
+      exit (3);
+    }
+
+  gfc_option.module_dir = (char *) gfc_getmem (strlen (arg));
+  strcpy (gfc_option.module_dir, arg);
+  strcat (gfc_option.module_dir, "/");
+}
+
+/* Handle command-line options.  Returns 0 if unrecognized, 1 if
+   recognized and handled.  */
+int
+gfc_handle_option (size_t scode, const char *arg, int value)
+{
+  int result = 1;
+  enum opt_code code = (enum opt_code) scode;
+
+  /* Ignore file names.  */
+  if (code == N_OPTS)
+    return 1;
+
+  switch (code)
+    {
+    default:
+      result = 0;
+      break;
+
+    case OPT_Wall:
+      set_Wall ();
+      break;
+
+    case OPT_Waliasing:
+      gfc_option.warn_aliasing = value;
+      break;
+
+    case OPT_Wconversion:
+      gfc_option.warn_conversion = value;
+      break;
+
+    case OPT_Wimplicit_interface:
+      gfc_option.warn_implicit_interface = value;
+      break;
+
+    case OPT_Wline_truncation:
+      gfc_option.warn_line_truncation = value;
+      break;
+
+    case OPT_Wsurprising:
+      gfc_option.warn_surprising = value;
+      break;
+
+    case OPT_Wunused_labels:
+      gfc_option.warn_unused_labels = value;
+      break;
+
+    case OPT_fdollar_ok:
+      gfc_option.flag_dollar_ok = value;
+      break;
+
+    case OPT_fdump_parse_tree:
+      gfc_option.verbose = value;
+      break;
+
+    case OPT_ffixed_form:
+      gfc_option.source_form = FORM_FIXED;
+      break;
+
+    case OPT_ffree_form:
+      gfc_option.source_form = FORM_FREE;
+      break;
+
+    case OPT_funderscoring:
+      gfc_option.flag_underscoring = value;
+      break;
+
+    case OPT_fsecond_underscore:
+      gfc_option.flag_second_underscore = value;
+      break;
+
+    case OPT_fimplicit_none:
+      gfc_option.flag_implicit_none = value;
+      break;
+
+    case OPT_fmax_stack_var_size_:
+      gfc_option.flag_max_stack_var_size = value;
+      break;
+
+    case OPT_fmodule_private:
+      gfc_option.flag_module_access_private = value;
+      break;
+
+    case OPT_fno_backend:
+      gfc_option.flag_no_backend = value;
+      break;
+
+    case OPT_fpack_derived:
+      gfc_option.flag_pack_derived = value;
+      break;
+
+    case OPT_frepack_arrays:
+      gfc_option.flag_repack_arrays = value;
+      break;
+
+    case OPT_ffixed_line_length_80:
+      gfc_option.fixed_line_length = 80;
+      break;
+
+    case OPT_ffixed_line_length_132:
+      gfc_option.fixed_line_length = 132;
+      break;
+
+    case OPT_fmax_identifier_length_:
+      if (value > GFC_MAX_SYMBOL_LEN)
+	gfc_fatal_error ("Maximum supported idenitifier length is %d",
+			 GFC_MAX_SYMBOL_LEN);
+      gfc_option.max_identifier_length = value;
+      break;
+
+    case OPT_qkind_:
+      if (gfc_validate_kind (BT_REAL, value) < 0)
+	gfc_fatal_error ("Argument to -fqkind isn't a valid real kind");
+      gfc_option.q_kind = value;
+      break;
+
+    case OPT_i8:
+      gfc_option.i8 = value;
+      break;
+
+    case OPT_r8:
+      gfc_option.r8 = value;
+      break;
+
+    case OPT_d8:
+      gfc_option.d8 = value;
+      break;
+
+    case OPT_I:
+      gfc_add_include_path (arg);
+      break;
+
+    case OPT_J:
+    case OPT_M:
+      gfc_handle_module_path_options (arg);
+    
+    case OPT_std_f95:
+      gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F2003_OBS
+	| GFC_STD_F2003_DEL;
+      gfc_option.warn_std = GFC_STD_F95_OBS;
+      gfc_option.max_identifier_length = 31;
+      break;
+
+    case OPT_std_f2003:
+      gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F2003_OBS
+	| GFC_STD_F2003;
+      gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F2003_OBS;
+      gfc_option.max_identifier_length = 63;
+      break;
+
+    case OPT_std_gnu:
+      gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
+	| GFC_STD_F2003_OBS | GFC_STD_F2003_DEL | GFC_STD_F2003 | GFC_STD_GNU;
+      gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
+	| GFC_STD_F2003_OBS | GFC_STD_F2003_DEL | GFC_STD_GNU;
+      break;
+    }
+
+  return result;
+}