[Bug fortran/93234] INQUIRE on pre-assigned files of ROUND and SIGN properties fails

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93234

Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2020-01-13
                 CC|                            |jvdelisle at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
The enumerators in inquire.c do not match those set in unit.c. 

Something like this is needed.

diff --git a/libgfortran/io/inquire.c b/libgfortran/io/inquire.c
index e6b22eb0b33..62aca71a162 100644
--- a/libgfortran/io/inquire.c
+++ b/libgfortran/io/inquire.c
@@ -371,7 +371,7 @@ inquire_via_unit (st_parameter_inquire *iqp, gfc_unit *u)
          else
            switch (u->flags.sign)
            {
-             case SIGN_PROCDEFINED:
+             case SIGN_UNSPECIFIED:
                p = "PROCESSOR_DEFINED";
                break;
              case SIGN_SUPPRESS:
@@ -409,7 +409,7 @@ inquire_via_unit (st_parameter_inquire *iqp, gfc_unit *u)
              case ROUND_COMPATIBLE:
                p = "COMPATIBLE";
                break;
-             case ROUND_PROCDEFINED:
+             case ROUND_UNSPECIFIED:
                p = "PROCESSOR_DEFINED";
                break;
              default:

I wonder if they are off for any others?