diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-05-06 20:12:25 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-05-06 20:12:25 +0200 |
| commit | 2e8d9212daaa8c6162ab872485dd03d28c96ea4c (patch) | |
| tree | 0b573a6cdfb20f51178b705ea9d49570cd795302 /gcc/fortran/options.c | |
| parent | 80bde45b083facc3f141c29c8c71d38619b1d9cb (diff) | |
| download | gcc-2e8d9212daaa8c6162ab872485dd03d28c96ea4c.zip gcc-2e8d9212daaa8c6162ab872485dd03d28c96ea4c.tar.gz gcc-2e8d9212daaa8c6162ab872485dd03d28c96ea4c.tar.bz2 | |
re PR fortran/48858 (Incorrect error for same binding label on two generic interface specifics)
2011-05-06 Tobias Burnus <burnus@net-b.de>
PR fortran/48858
PR fortran/48820
* lang.opt (std=f2008tr): New.
* libgfortran.h (GFC_STD_F2008_TR): New macro constant.
* decl.c (verify_c_interop_param): Allow OPTIONAL in BIND(C)
procedures for -std=f2008tr/gnu/legacy.
2011-05-06 Tobias Burnus <burnus@net-b.de>
PR fortran/48858
PR fortran/48820
* gfortran.dg/bind_c_usage_22.f90: New.
* gfortran.dg/bind_c_usage_23.f90: New.
* gfortran.dg/bind_c_usage_24.f90: New.
* gfortran.dg/bind_c_usage_24_c.c: New.
From-SVN: r173500
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index e274572..c67d109 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -49,7 +49,7 @@ set_default_std_flags (void) { gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL | GFC_STD_F2003 | GFC_STD_F2008 | GFC_STD_F95 | GFC_STD_F77 - | GFC_STD_F2008_OBS | GFC_STD_GNU | GFC_STD_LEGACY; + | GFC_STD_F2008_OBS | GFC_STD_F2008_TR | GFC_STD_GNU | GFC_STD_LEGACY; gfc_option.warn_std = GFC_STD_F95_DEL | GFC_STD_LEGACY; } @@ -945,6 +945,16 @@ gfc_handle_option (size_t scode, const char *arg, int value, gfc_option.warn_tabs = 0; break; + case OPT_std_f2008tr: + gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F77 + | GFC_STD_F2003 | GFC_STD_F95 | GFC_STD_F2008 | GFC_STD_F2008_OBS + | GFC_STD_F2008_TR; + gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F2008_OBS; + gfc_option.max_identifier_length = 63; + gfc_option.warn_ampersand = 1; + gfc_option.warn_tabs = 0; + break; + case OPT_std_gnu: set_default_std_flags (); break; |