55 lines
1.8 KiB
Diff
55 lines
1.8 KiB
Diff
From d1bb76287ec58fdde7ced70088559136555bd7bd Mon Sep 17 00:00:00 2001
|
|
From: Jim MacArthur <jim.macarthur@codethink.co.uk>
|
|
Date: Fri, 11 Dec 2015 17:04:09 +0000
|
|
Subject: [PATCH 03/23] Add -std=extra-legacy
|
|
|
|
|
|
0003-Add-std-extra-legacy.patch
|
|
|
|
0023-Add-a-full-stop-to-the-std-extra-legacy-help-text.patch
|
|
|
|
diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt
|
|
index 4421ce4..4808c27 100644
|
|
--- a/gcc/fortran/lang.opt
|
|
+++ b/gcc/fortran/lang.opt
|
|
@@ -790,6 +790,10 @@ std=legacy
|
|
Fortran
|
|
Accept extensions to support legacy code.
|
|
|
|
+std=extra-legacy
|
|
+Fortran
|
|
+Accept even more legacy extensions, including things disallowed in f90.
|
|
+
|
|
undef
|
|
Fortran
|
|
; Documented in C
|
|
diff --git a/gcc/fortran/libgfortran.h b/gcc/fortran/libgfortran.h
|
|
index c5ff992..dcc923b 100644
|
|
--- a/gcc/fortran/libgfortran.h
|
|
+++ b/gcc/fortran/libgfortran.h
|
|
@@ -22,6 +22,7 @@ along with GCC; see the file COPYING3.
|
|
Note that no features were obsoleted nor deleted in F2003.
|
|
Please remember to keep those definitions in sync with
|
|
gfortran.texi. */
|
|
+#define GFC_STD_EXTRA_LEGACY (1<<13) /* Even more backward compatibility. */
|
|
#define GFC_STD_F2018_DEL (1<<12) /* Deleted in F2018. */
|
|
#define GFC_STD_F2018_OBS (1<<11) /* Obsolescent in F2018. */
|
|
#define GFC_STD_F2018 (1<<10) /* New in F2018. */
|
|
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
|
|
index 1af76aa..9ebf8e3 100644
|
|
--- a/gcc/fortran/options.c
|
|
+++ b/gcc/fortran/options.c
|
|
@@ -733,6 +733,12 @@ gfc_handle_option (size_t scode, const char *arg, int value,
|
|
gfc_option.warn_std = 0;
|
|
break;
|
|
|
|
+ case OPT_std_extra_legacy:
|
|
+ set_default_std_flags ();
|
|
+ gfc_option.warn_std = 0;
|
|
+ gfc_option.allow_std |= GFC_STD_EXTRA_LEGACY;
|
|
+ break;
|
|
+
|
|
case OPT_fshort_enums:
|
|
/* Handled in language-independent code. */
|
|
break;
|