#include "gfortran.h"
#include "target.h"
#include "cpp.h"
-#include "toplev.h"
+#include "toplev.h" /* For sorry. */
#include "tm.h"
gfc_option_t gfc_option;
gfc_option.warn_intrinsic_shadow = 0;
gfc_option.warn_intrinsics_std = 0;
gfc_option.warn_align_commons = 1;
+ gfc_option.warn_unused_dummy_argument = 0;
gfc_option.max_errors = 25;
gfc_option.flag_all_intrinsics = 0;
gfc_option.warn_intrinsic_shadow = setting;
gfc_option.warn_intrinsics_std = setting;
gfc_option.warn_character_truncation = setting;
+ gfc_option.warn_unused_dummy_argument = setting;
warn_unused = setting;
warn_return_type = setting;
gfc_option.warn_align_commons = value;
break;
+ case OPT_Wunused_dummy_argument:
+ gfc_option.warn_unused_dummy_argument = value;
+ break;
+
case OPT_fall_intrinsics:
gfc_option.flag_all_intrinsics = 1;
break;
break;
case OPT_fwhole_file:
- gfc_option.flag_whole_file = 1;
+ gfc_option.flag_whole_file = value;
break;
case OPT_fsecond_underscore:
break;
case OPT_fshort_enums:
- flag_short_enums = 1;
+ /* Handled in language-independent code. */
break;
case OPT_fconvert_little_endian:
break;
case OPT_frecursive:
- gfc_option.flag_recursive = 1;
+ gfc_option.flag_recursive = value;
break;
case OPT_falign_commons: