OSDN Git Service

21fb0a83c522ca290eb95f63512bfc72ed757704
[pf3gnuchains/gcc-fork.git] / gcc / fortran / options.c
1 /* Parse and display command line options.
2    Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation,
3    Inc.
4    Contributed by Andy Vaught
5
6 This file is part of GCC.
7
8 GCC is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 2, or (at your option) any later
11 version.
12
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
16 for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING.  If not, write to the Free
20 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
21 02111-1307, USA.  */
22
23
24 #include "config.h"
25 #include "system.h"
26 #include "coretypes.h"
27 #include "tree.h"
28 #include "flags.h"
29 #include "intl.h"
30 #include "opts.h"
31 #include "options.h"
32 #include "tree-inline.h"
33
34 #include "gfortran.h"
35
36 gfc_option_t gfc_option;
37
38
39 /* Get ready for options handling.  */
40
41 unsigned int
42 gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
43                   const char **argv ATTRIBUTE_UNUSED)
44 {
45   gfc_option.source = NULL;
46   gfc_option.module_dir = NULL;
47   gfc_option.source_form = FORM_UNKNOWN;
48   gfc_option.fixed_line_length = 72;
49   gfc_option.max_identifier_length = GFC_MAX_SYMBOL_LEN;
50   gfc_option.verbose = 0;
51
52   gfc_option.warn_aliasing = 0;
53   gfc_option.warn_conversion = 0;
54   gfc_option.warn_implicit_interface = 0;
55   gfc_option.warn_line_truncation = 0;
56   gfc_option.warn_underflow = 1;
57   gfc_option.warn_surprising = 0;
58   gfc_option.warn_unused_labels = 0;
59
60   gfc_option.flag_default_double = 0;
61   gfc_option.flag_default_integer = 0;
62   gfc_option.flag_default_real = 0;
63   gfc_option.flag_dollar_ok = 0;
64   gfc_option.flag_underscoring = 1;
65   gfc_option.flag_second_underscore = 1;
66   gfc_option.flag_implicit_none = 0;
67   gfc_option.flag_max_stack_var_size = 32768;
68   gfc_option.flag_module_access_private = 0;
69   gfc_option.flag_no_backend = 0;
70   gfc_option.flag_pack_derived = 0;
71   gfc_option.flag_repack_arrays = 0;
72
73   gfc_option.q_kind = gfc_default_double_kind;
74
75   flag_argument_noalias = 2;
76   flag_errno_math = 0;
77
78   gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
79     | GFC_STD_F2003 | GFC_STD_F95 | GFC_STD_F77 | GFC_STD_GNU;
80   gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
81     | GFC_STD_F2003;
82
83   gfc_option.warn_nonstd_intrinsics = 0;
84
85   return CL_F95;
86 }
87
88
89 /* Finalize commandline options.  */
90
91 bool
92 gfc_post_options (const char **pfilename)
93 {
94   const char *filename = *pfilename;
95
96   /* Verify the input file name.  */
97   if (!filename || strcmp (filename, "-") == 0)
98     {
99       filename = "";
100     }
101
102   gfc_option.source = filename;
103
104   flag_inline_trees = 1;
105
106   /* Use tree inlining.  */
107   if (!flag_no_inline)
108     flag_no_inline = 1;
109   if (flag_inline_functions)
110     flag_inline_trees = 2;
111
112   /* If -pedantic, warn about the use of GNU extensions.  */
113   if (pedantic && (gfc_option.allow_std & GFC_STD_GNU) != 0)
114     gfc_option.warn_std |= GFC_STD_GNU;
115
116   return false;
117 }
118
119
120 /* Set the options for -Wall.  */
121
122 static void
123 set_Wall (void)
124 {
125
126   gfc_option.warn_aliasing = 1;
127   gfc_option.warn_line_truncation = 1;
128   gfc_option.warn_underflow = 1;
129   gfc_option.warn_surprising = 1;
130   gfc_option.warn_unused_labels = 1;
131   gfc_option.warn_nonstd_intrinsics = 1;
132
133   set_Wunused (1);
134   warn_return_type = 1;
135   warn_switch = 1;
136
137   /* We save the value of warn_uninitialized, since if they put
138      -Wuninitialized on the command line, we need to generate a
139      warning about not using it without also specifying -O.  */
140
141   if (warn_uninitialized != 1)
142     warn_uninitialized = 2;
143 }
144
145
146 static void
147 gfc_handle_module_path_options (const char *arg)
148 {
149
150   if (gfc_option.module_dir != NULL)
151     {
152       gfc_status ("gfortran: Only one -M option allowed\n");
153       exit (3);
154     }
155
156   if (arg == NULL)
157     {
158       gfc_status ("gfortran: Directory required after -M\n");
159       exit (3);
160     }
161
162   gfc_option.module_dir = (char *) gfc_getmem (strlen (arg) + 2);
163   strcpy (gfc_option.module_dir, arg);
164   strcat (gfc_option.module_dir, "/");
165 }
166
167 /* Handle command-line options.  Returns 0 if unrecognized, 1 if
168    recognized and handled.  */
169 int
170 gfc_handle_option (size_t scode, const char *arg, int value)
171 {
172   int result = 1;
173   enum opt_code code = (enum opt_code) scode;
174
175   /* Ignore file names.  */
176   if (code == N_OPTS)
177     return 1;
178
179   switch (code)
180     {
181     default:
182       result = 0;
183       break;
184
185     case OPT_Wall:
186       set_Wall ();
187       break;
188
189     case OPT_Waliasing:
190       gfc_option.warn_aliasing = value;
191       break;
192
193     case OPT_Wconversion:
194       gfc_option.warn_conversion = value;
195       break;
196
197     case OPT_Wimplicit_interface:
198       gfc_option.warn_implicit_interface = value;
199       break;
200
201     case OPT_Wline_truncation:
202       gfc_option.warn_line_truncation = value;
203       break;
204
205     case OPT_Wunderflow:
206       gfc_option.warn_underflow = value;
207       break;
208
209     case OPT_Wsurprising:
210       gfc_option.warn_surprising = value;
211       break;
212
213     case OPT_Wunused_labels:
214       gfc_option.warn_unused_labels = value;
215       break;
216
217     case OPT_fdollar_ok:
218       gfc_option.flag_dollar_ok = value;
219       break;
220
221     case OPT_fdump_parse_tree:
222       gfc_option.verbose = value;
223       break;
224
225     case OPT_ffixed_form:
226       gfc_option.source_form = FORM_FIXED;
227       break;
228
229     case OPT_ffree_form:
230       gfc_option.source_form = FORM_FREE;
231       break;
232
233     case OPT_funderscoring:
234       gfc_option.flag_underscoring = value;
235       break;
236
237     case OPT_fsecond_underscore:
238       gfc_option.flag_second_underscore = value;
239       break;
240
241     case OPT_fimplicit_none:
242       gfc_option.flag_implicit_none = value;
243       break;
244
245     case OPT_fmax_stack_var_size_:
246       gfc_option.flag_max_stack_var_size = value;
247       break;
248
249     case OPT_fmodule_private:
250       gfc_option.flag_module_access_private = value;
251       break;
252
253     case OPT_fno_backend:
254       gfc_option.flag_no_backend = value;
255       break;
256
257     case OPT_fpack_derived:
258       gfc_option.flag_pack_derived = value;
259       break;
260
261     case OPT_frepack_arrays:
262       gfc_option.flag_repack_arrays = value;
263       break;
264
265     case OPT_ffixed_line_length_none:
266       gfc_option.fixed_line_length = 0;
267       break;
268
269     case OPT_ffixed_line_length_:
270       if (value != 0 && value < 7)
271         gfc_fatal_error ("Fixed line length must be at least seven.");
272       gfc_option.fixed_line_length = value;
273       break;
274
275     case OPT_fmax_identifier_length_:
276       if (value > GFC_MAX_SYMBOL_LEN)
277         gfc_fatal_error ("Maximum supported idenitifier length is %d",
278                          GFC_MAX_SYMBOL_LEN);
279       gfc_option.max_identifier_length = value;
280       break;
281
282     case OPT_qkind_:
283       if (gfc_validate_kind (BT_REAL, value, true) < 0)
284         gfc_fatal_error ("Argument to -fqkind isn't a valid real kind");
285       gfc_option.q_kind = value;
286       break;
287
288     case OPT_fdefault_integer_8:
289       gfc_option.flag_default_integer = value;
290       break;
291
292     case OPT_fdefault_real_8:
293       gfc_option.flag_default_real = value;
294       break;
295
296     case OPT_fdefault_double_8:
297       gfc_option.flag_default_double = value;
298       break;
299
300     case OPT_I:
301       gfc_add_include_path (arg);
302       break;
303
304     case OPT_J:
305     case OPT_M:
306       gfc_handle_module_path_options (arg);
307       break;
308     
309     case OPT_std_f95:
310       gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95 | GFC_STD_F77;
311       gfc_option.warn_std = GFC_STD_F95_OBS;
312       gfc_option.max_identifier_length = 31;
313       break;
314
315     case OPT_std_f2003:
316       gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F77 
317         | GFC_STD_F2003 | GFC_STD_F95;
318       gfc_option.warn_std = GFC_STD_F95_OBS;
319       gfc_option.max_identifier_length = 63;
320       break;
321
322     case OPT_std_gnu:
323       gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
324         | GFC_STD_F77 | GFC_STD_F95 | GFC_STD_F2003
325         | GFC_STD_GNU;
326       gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL;
327       break;
328
329     case OPT_Wnonstd_intrinsics:
330       gfc_option.warn_nonstd_intrinsics = 1;
331       break;
332     }
333
334   return result;
335 }