[gcc r12-6841] fortran: Extend -fconvert= option for ppc64le r16_ieee and r16_ibm

[gcc r12-6841] fortran: Extend -fconvert= option for ppc64le r16_ieee and r16_ibm

[Jakub Jelinek]

https://gcc.gnu.org/g:9acd5a01175a3a0998eaaf306305890081d8550f

commit r12-6841-g9acd5a01175a3a0998eaaf306305890081d8550f
Author: Jakub Jelinek <jakub@redhat.com>
Date:   Mon Jan 24 11:52:30 2022 +0100

    fortran: Extend -fconvert= option for ppc64le r16_ieee and r16_ibm
    
    This patch on top of the previously posted option handling changes patch
    allows specifying -fconvert=swap,r16_ieee etc. (but will error on it
    when not on powerpc64le because in the library such swapping is only
    implemented for HAVE_REAL_17).
    
    2022-01-24  Jakub Jelinek  <jakub@redhat.com>
    
            * lang.opt (fconvert=): Add EnumSet property and mention also
            r16_ieee and r16_ibm arguments.
            (big-endian, little-endian, native, swap): Add Set(1) property.
            (r16_ieee, r16_ibm): New EnumValue entries with Set(2) property.
            * trans-types.cc (gfc_init_kinds): Emit gfc_fatal_error for
            -fconvert=r16_ieee or -fconvert=r16_ibm when R16_IEEE <=> R16_IBM
            conversions aren't supported.

Diff:
---
 gcc/fortran/lang.opt       | 18 ++++++++++++------
 gcc/fortran/trans-types.cc |  3 +++
 2 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt
index ab92e0e3686..cf397129d55 100644
--- a/gcc/fortran/lang.opt
+++ b/gcc/fortran/lang.opt
@@ -421,23 +421,29 @@ Fortran
 Produce a warning at runtime if a array temporary has been created for a procedure argument.
 
 fconvert=
-Fortran RejectNegative Joined Enum(gfc_convert) Var(flag_convert) Init(GFC_FLAG_CONVERT_NATIVE)
--fconvert=<big-endian|little-endian|native|swap>	The endianness used for unformatted files.
+Fortran RejectNegative Joined Enum(gfc_convert) EnumSet Var(flag_convert) Init(GFC_FLAG_CONVERT_NATIVE)
+-fconvert=<big-endian|little-endian|native|swap|r16_ieee|r16_ibm>	The endianness used for unformatted files.
 
 Enum
 Name(gfc_convert) Type(enum gfc_convert) UnknownError(Unrecognized option to endianness value: %qs)
 
 EnumValue
-Enum(gfc_convert) String(big-endian) Value(GFC_FLAG_CONVERT_BIG)
+Enum(gfc_convert) String(big-endian) Value(GFC_FLAG_CONVERT_BIG) Set(1)
 
 EnumValue
-Enum(gfc_convert) String(little-endian) Value(GFC_FLAG_CONVERT_LITTLE)
+Enum(gfc_convert) String(little-endian) Value(GFC_FLAG_CONVERT_LITTLE) Set(1)
 
 EnumValue
-Enum(gfc_convert) String(native) Value(GFC_FLAG_CONVERT_NATIVE)
+Enum(gfc_convert) String(native) Value(GFC_FLAG_CONVERT_NATIVE) Set(1)
 
 EnumValue
-Enum(gfc_convert) String(swap) Value(GFC_FLAG_CONVERT_SWAP)
+Enum(gfc_convert) String(swap) Value(GFC_FLAG_CONVERT_SWAP) Set(1)
+
+EnumValue
+Enum(gfc_convert) String(r16_ieee) Value(GFC_FLAG_CONVERT_R16_IEEE) Set(2)
+
+EnumValue
+Enum(gfc_convert) String(r16_ibm) Value(GFC_FLAG_CONVERT_R16_IBM) Set(2)
 
 fcray-pointer
 Fortran Var(flag_cray_pointer)
diff --git a/gcc/fortran/trans-types.cc b/gcc/fortran/trans-types.cc
index a56337b599a..3cdc529eb28 100644
--- a/gcc/fortran/trans-types.cc
+++ b/gcc/fortran/trans-types.cc
@@ -527,6 +527,9 @@ gfc_init_kinds (void)
 	      }
 	  }
     }
+  else if ((flag_convert & (GFC_CONVERT_R16_IEEE | GFC_CONVERT_R16_IBM)) != 0)
+    gfc_fatal_error ("%<-fconvert=r16_ieee%> or %<-fconvert=r16_ibm%> not "
+		     "supported on this architecture");
 
   /* Choose the default integer kind.  We choose 4 unless the user directs us
      otherwise.  Even if the user specified that the default integer kind is 8,