Cleaner fix to the x86 issue with kind=16 & long double

Author: buffer51

x86.diff

@@ -1,30 +1,13 @@
 diff --git a/gcc-4.9/libgfortran/mk-kinds-h.sh b/gcc-4.9/libgfortran/mk-kinds-h.sh
-index 98a95ab..fdbccb0 100755
+index 98a95ab..7cbe7ed 100755
 --- a/gcc-4.9/libgfortran/mk-kinds-h.sh
 +++ b/gcc-4.9/libgfortran/mk-kinds-h.sh
-@@ -51,7 +51,10 @@ echo "use iso_c_binding; print *, c_long_double ; end" > tmq$$.f90
- long_double_kind=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
- 			| sed 's/ *TRANSFER *//'`
- rm -f tmq$$.*
--
-+echo "use iso_c_binding; print *, c_double ; end" > tmq$$.f90
-+double_kind=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
-+			| sed 's/ *TRANSFER *//'`
-+rm -f tmq$$.*
- 
- for k in $possible_real_kinds; do
-   echo "  real (kind=$k) :: x" > tmp$$.f90
-@@ -66,10 +69,12 @@ for k in $possible_real_kinds; do
- 	    ctype="__float128"
- 	    cplxtype="_Complex float __attribute__((mode(TC)))"
- 	    suffix="q"
--	  else
-+      elif [ $long_double_kind -ne $double_kind ]; then
- 	    ctype="long double"
- 	    cplxtype="complex long double"
- 	    suffix="l"
-+      else
-+        break;
- 	  fi ;;
-       *) echo "$0: Unknown type" >&2 ; exit 1 ;;
-     esac
+@@ -62,7 +62,7 @@ for k in $possible_real_kinds; do
+       4) ctype="float" ; cplxtype="complex float" ; suffix="f" ;;
+       8) ctype="double" ; cplxtype="complex double" ; suffix="" ;;
+       10) ctype="long double" ; cplxtype="complex long double" ; suffix="l" ;;
+-      16) if [ $long_double_kind -eq 10 ]; then
++      16) if [ $long_double_kind -ne 16 ]; then
+            ctype="__float128"
+            cplxtype="_Complex float __attribute__((mode(TC)))"
+            suffix="q"