diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/fortran/lang.opt | 6 | ||||
| -rw-r--r-- | gcc/fortran/options.c | 3 |
3 files changed, 17 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c7f2001..fc39b41 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,4 +1,13 @@ 2013-01-16 Jakub Jelinek <jakub@redhat.com> + Tobias Burnus <burnus@net-b.de> + + PR driver/55884 + * lang.opt (fintrinsic-modules-path): Don't accept Joined. + (fintrinsic-modules-path=): New. + * options.c (gfc_handle_option, gfc_get_option_string, + gfc_get_option_string): Handle the latter. + +2013-01-16 Jakub Jelinek <jakub@redhat.com> PR fortran/52865 * trans-stmt.c (gfc_trans_do): Put countm1-- before conditional diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt index 4e95220..fbe8a1b 100644 --- a/gcc/fortran/lang.opt +++ b/gcc/fortran/lang.opt @@ -422,7 +422,11 @@ Fortran RejectNegative Interpret any INTEGER(4) as an INTEGER(8) fintrinsic-modules-path -Fortran RejectNegative Joined Separate +Fortran RejectNegative Separate +Specify where to find the compiled intrinsic modules + +fintrinsic-modules-path= +Fortran RejectNegative Joined Specify where to find the compiled intrinsic modules ffixed-line-length-none diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index b1317ba..a014634 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -843,6 +843,7 @@ gfc_handle_option (size_t scode, const char *arg, int value, break; case OPT_fintrinsic_modules_path: + case OPT_fintrinsic_modules_path_: gfc_add_intrinsic_modules_path (arg); break; @@ -1146,6 +1147,7 @@ gfc_get_option_string (void) case OPT_quiet: case OPT_version: case OPT_fintrinsic_modules_path: + case OPT_fintrinsic_modules_path_: /* Ignore these. */ break; default: @@ -1171,6 +1173,7 @@ gfc_get_option_string (void) case OPT_quiet: case OPT_version: case OPT_fintrinsic_modules_path: + case OPT_fintrinsic_modules_path_: /* Ignore these. */ continue; |