Add libgfortran Android patch

Change-Id: I570050fc155db810595d216a48b02b211384235c
Signed-off-by: Bernhard Rosenkränzer <Bernhard.Rosenkranzer@linaro.org>

1 files changed, 147 insertions, 0 deletions

diff --git a/5.2/0024-libgfortran-android.patch b/5.2/0024-libgfortran-android.patch
new file mode 100644
index 0000000..77af71c
--- /dev/null
+++ b/5.2/0024-libgfortran-android.patch
@@ -0,0 +1,147 @@
+--- gcc-4.9/libgfortran/intrinsics/cshift0.c.bero~	2015-10-23 20:53:23.380584912 +0100
++++ gcc-4.9/libgfortran/intrinsics/cshift0.c	2015-10-23 20:55:14.731568711 +0100
+@@ -146,7 +146,7 @@ cshift0 (gfc_array_char * ret, const gfc
+       return;
+ # endif
+
+-# ifdef HAVE_GFC_REAL_16
++# if 0 && defined(HAVE_GFC_REAL_16)
+     case GFC_DTYPE_REAL_16:
+       cshift0_r16 ((gfc_array_r16 *)ret, (gfc_array_r16 *) array, shift,
+ 		   which);
+@@ -176,7 +176,7 @@ cshift0 (gfc_array_char * ret, const gfc
+       return;
+ # endif
+
+-# ifdef HAVE_GFC_COMPLEX_16
++# if 0 // defined(HAVE_GFC_COMPLEX_16)
+     case GFC_DTYPE_COMPLEX_16:
+       cshift0_c16 ((gfc_array_c16 *)ret, (gfc_array_c16 *) array, shift,
+ 		   which);
+--- gcc-4.9/libgfortran/intrinsics/pack_generic.c.bero~	2015-10-23 20:55:35.680130206 +0100
++++ gcc-4.9/libgfortran/intrinsics/pack_generic.c	2015-10-23 20:56:08.821018386 +0100
+@@ -158,7 +158,7 @@ pack_internal (gfc_array_char *ret, cons
+ 	  if (total == 0)
+ 	    return;      /* In this case, nothing remains to be done.  */
+ 	}
+-      else
++      else
+ 	{
+ 	  /* We come here because of range checking.  */
+ 	  index_type ret_extent;
+@@ -312,7 +312,7 @@ pack (gfc_array_char *ret, const gfc_arr
+       return;
+ # endif
+
+-# ifdef HAVE_GFC_REAL_16
++# if 0 && defined(HAVE_GFC_REAL_16)
+     case GFC_DTYPE_REAL_16:
+       pack_r16 ((gfc_array_r16 *) ret, (gfc_array_r16 *) array,
+ 		(gfc_array_l1 *) mask, (gfc_array_r16 *) vector);
+@@ -344,7 +344,7 @@ pack (gfc_array_char *ret, const gfc_arr
+       return;
+ # endif
+
+-# ifdef HAVE_GFC_COMPLEX_16
++# if 0 && defined(HAVE_GFC_COMPLEX_16)
+     case GFC_DTYPE_COMPLEX_16:
+       pack_c16 ((gfc_array_c16 *) ret, (gfc_array_c16 *) array,
+ 		(gfc_array_l1 *) mask, (gfc_array_c16 *) vector);
+--- gcc-4.9/libgfortran/intrinsics/spread_generic.c.bero~	2015-10-23 20:56:24.381435581 +0100
++++ gcc-4.9/libgfortran/intrinsics/spread_generic.c	2015-10-23 20:56:56.470295900 +0100
+@@ -529,7 +529,7 @@ spread_scalar (gfc_array_char *ret, cons
+       return;
+ # endif
+
+-# ifdef HAVE_GFC_REAL_16
++# if 0 && defined(HAVE_GFC_REAL_16)
+     case GFC_DTYPE_REAL_16:
+       spread_scalar_r16 ((gfc_array_r16 *) ret, (GFC_REAL_16 *) source,
+ 			*along, *pncopies);
+@@ -561,7 +561,7 @@ spread_scalar (gfc_array_char *ret, cons
+       return;
+ # endif
+
+-# ifdef HAVE_GFC_COMPLEX_16
++# if 0 && defined(HAVE_GFC_COMPLEX_16)
+     case GFC_DTYPE_COMPLEX_16:
+       spread_scalar_c16 ((gfc_array_c16 *) ret, (GFC_COMPLEX_16 *) source,
+ 			*along, *pncopies);
+--- gcc-4.9/libgfortran/intrinsics/unpack_generic.c.bero~	2015-10-23 20:57:17.998873106 +0100
++++ gcc-4.9/libgfortran/intrinsics/unpack_generic.c	2015-10-23 20:58:23.392626657 +0100
+@@ -278,7 +278,7 @@ unpack1 (gfc_array_char *ret, const gfc_
+       return;
+ # endif
+
+-# ifdef HAVE_GFC_REAL_16
++# if 0 && defined(HAVE_GFC_REAL_16)
+     case GFC_DTYPE_REAL_16:
+       unpack1_r16 ((gfc_array_r16 *) ret, (gfc_array_r16 *) vector,
+ 		   mask, (gfc_array_r16 *) field);
+@@ -310,7 +310,7 @@ unpack1 (gfc_array_char *ret, const gfc_
+       return;
+ # endif
+
+-# ifdef HAVE_GFC_COMPLEX_16
++# if 0 && defined(HAVE_GFC_COMPLEX_16)
+     case GFC_DTYPE_COMPLEX_16:
+       unpack1_c16 ((gfc_array_c16 *) ret, (gfc_array_c16 *) vector,
+ 		   mask, (gfc_array_c16 *) field);
+@@ -489,7 +489,7 @@ unpack0 (gfc_array_char *ret, const gfc_
+       return;
+ # endif
+
+-# ifdef HAVE_GFC_REAL_16
++# if 0 && defined(HAVE_GFC_REAL_16)
+     case GFC_DTYPE_REAL_16:
+       unpack0_r16 ((gfc_array_r16 *) ret, (gfc_array_r16 *) vector,
+ 		   mask, (GFC_REAL_16 *) field);
+@@ -521,7 +521,7 @@ unpack0 (gfc_array_char *ret, const gfc_
+       return;
+ # endif
+
+-# ifdef HAVE_GFC_COMPLEX_16
++# if 0 && defined(HAVE_GFC_COMPLEX_16)
+     case GFC_DTYPE_COMPLEX_16:
+       unpack0_c16 ((gfc_array_c16 *) ret, (gfc_array_c16 *) vector,
+ 		   mask, (GFC_COMPLEX_16 *) field);
+--- gcc-4.9/libgfortran/runtime/in_pack_generic.c.bero~	2015-10-23 20:58:40.465084837 +0100
++++ gcc-4.9/libgfortran/runtime/in_pack_generic.c	2015-10-23 20:59:02.641679335 +0100
+@@ -95,7 +95,7 @@ internal_pack (gfc_array_char * source)
+       return internal_pack_r10 ((gfc_array_r10 *) source);
+ # endif
+
+-# if defined (HAVE_GFC_REAL_16)
++# if 0 && defined (HAVE_GFC_REAL_16)
+     case GFC_DTYPE_REAL_16:
+       return internal_pack_r16 ((gfc_array_r16 *) source);
+ # endif
+@@ -119,7 +119,7 @@ internal_pack (gfc_array_char * source)
+       return internal_pack_c10 ((gfc_array_c10 *) source);
+ # endif
+
+-# if defined (HAVE_GFC_COMPLEX_16)
++# if 0 && defined (HAVE_GFC_COMPLEX_16)
+     case GFC_DTYPE_COMPLEX_16:
+       return internal_pack_c16 ((gfc_array_c16 *) source);
+ # endif
+--- gcc-4.9/libgfortran/runtime/in_unpack_generic.c.bero~	2015-10-23 20:59:19.338127111 +0100
++++ gcc-4.9/libgfortran/runtime/in_unpack_generic.c	2015-10-23 20:59:35.802568787 +0100
+@@ -103,7 +103,7 @@ internal_unpack (gfc_array_char * d, con
+       return;
+ # endif
+
+-# if defined(HAVE_GFC_REAL_16)
++# if 0 && defined(HAVE_GFC_REAL_16)
+     case GFC_DTYPE_REAL_16:
+       internal_unpack_r16 ((gfc_array_r16 *) d, (const GFC_REAL_16 *) s);
+       return;
+@@ -131,7 +131,7 @@ internal_unpack (gfc_array_char * d, con
+       return;
+ # endif
+
+-# if defined(HAVE_GFC_COMPLEX_16)
++# if 0 && defined(HAVE_GFC_COMPLEX_16)
+     case GFC_DTYPE_COMPLEX_16:
+       internal_unpack_c16 ((gfc_array_c16 *) d, (const GFC_COMPLEX_16 *) s);
+       return;