diff options
| author | Fritz Reese <fritzoreese@gmail.com> | 2016-10-25 15:13:43 +0000 |
|---|---|---|
| committer | Fritz Reese <foreese@gcc.gnu.org> | 2016-10-25 15:13:43 +0000 |
| commit | f6d17ecdaff0782c2114b18eb04c9be98ca1c7cf (patch) | |
| tree | ee373133ab268f2af7fc6ac7c66e8ae15a7a5a8a /gcc/fortran/decl.c | |
| parent | 6ddefaa79f3014ce4e57a744e9e8c9222beaf18b (diff) | |
| download | gcc-f6d17ecdaff0782c2114b18eb04c9be98ca1c7cf.zip gcc-f6d17ecdaff0782c2114b18eb04c9be98ca1c7cf.tar.gz gcc-f6d17ecdaff0782c2114b18eb04c9be98ca1c7cf.tar.bz2 | |
Cleanup -fdec.
gcc/fortran/
* invoke.texi, gfortran.texi: Touch up documentation of -fdec.
* gfortran.h (gfc_option): Move flag_dec_structure out of gfc_option.
* decl.c (match_record_decl, gfc_match_decl_type_spec,
gfc_match_structure_decl): Ditto.
* match.c (gfc_match_member_sep): Ditto.
* options.c (gfc_handle_option): Ditto.
* lang.opt (fdec-structure): Use Fortran Var for flag_dec_structure.
* lang.opt (fdec): Use Fortran Var to create flag_dec.
* options.c (set_dec_flags): With -fdec enable -fcray-pointer,
-fd-lines-as-comments (default), -fdollar-ok, and legacy std flags.
From-SVN: r241516
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index bc27f66..e47d8ed 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2929,7 +2929,7 @@ match_record_decl (char *name) m = gfc_match (" record /"); if (m == MATCH_YES) { - if (!gfc_option.flag_dec_structure) + if (!flag_dec_structure) { gfc_current_locus = old_loc; gfc_error ("RECORD at %C is an extension, enable it with " @@ -2942,7 +2942,7 @@ match_record_decl (char *name) } gfc_current_locus = old_loc; - if (gfc_option.flag_dec_structure + if (flag_dec_structure && (gfc_match (" record% ") == MATCH_YES || gfc_match (" record%t") == MATCH_YES)) gfc_error ("Structure name expected after RECORD at %C"); @@ -3145,7 +3145,7 @@ gfc_match_decl_type_spec (gfc_typespec *ts, int implicit_flag) { /* Match nested STRUCTURE declarations; only valid within another structure declaration. */ - if (gfc_option.flag_dec_structure + if (flag_dec_structure && (gfc_current_state () == COMP_STRUCTURE || gfc_current_state () == COMP_MAP)) { @@ -8654,7 +8654,7 @@ gfc_match_structure_decl (void) match m; locus where; - if(!gfc_option.flag_dec_structure) + if(!flag_dec_structure) { gfc_error ("STRUCTURE at %C is a DEC extension, enable with " "-fdec-structure"); |