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

--- Comment #1 from Walter Spector <w6ws at earthlink dot net> ---
When run, the following is output:
$ gfortran --version
GNU Fortran (GCC) 16.0.0 20251209 (experimental)
Copyright (C) 2025 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

$ gfortran inq_tests.F90
$ ./a.out
 Unconnected INQUIRE by file
 iostat =           0 : pass
 access =UNDEFINED       : pass
 action =xxx             : fail
 blank  =UNDEFINED       : pass
 delim  =xxx             : fail
 direct =UNKNOWN         : pass
 exist  = F : pass
 form   =UNDEFINED       : pass
 formatted =UNKNOWN         : pass
 name   =xxx             : pass
 named  = F : fail
 number =         -42 : fail
 opened = F : pass
 pad    =UNDEFINED       : fail
 position =UNDEFINED       : pass
 read   =NO              : fail
 readwrite =NO              : fail
 sequential =UNKNOWN         : pass
 unformatted =UNKNOWN         : pass
 write  =NO              : fail
 decimal =UNDEFINED           : pass
 encoding =UNDEFINED           : fail
 round  =xxx                 : fail
 sign   =xxx                 : fail
 stream =UNKNOWN             : pass

 Unconnected INQUIRE by unit
 iostat =           0 : pass
 access =UNDEFINED       : pass
 action =UNDEFINED       : pass
 blank  =UNDEFINED       : pass
 delim  =UNDEFINED       : pass
 direct =UNKNOWN         : pass
 exist  = F : pass
 form   =UNDEFINED       : pass
 formatted =UNKNOWN         : pass
 name   =xxx             : fail
 named  = F : pass
 number =         -42 : fail
 opened = F : pass
 pad    =UNDEFINED       : fail
 position =UNDEFINED       : pass
 read   =NO              : fail
 readwrite =NO              : fail
 sequential =UNKNOWN         : pass
 unformatted =UNKNOWN         : pass
 write  =NO              : fail
 decimal =UNDEFINED           : pass
 encoding =UNDEFINED           : fail
 round  =UNDEFINED           : pass
 sign   =UNDEFINED           : pass
 stream =UNKNOWN             : pass

 Connected INQUIRE by file (sequential)
 iostat =           0 : pass
 access =SEQUENTIAL      : pass
 action =READWRITE       : pass
 blank  =NULL            : pass
 delim  =NONE            : pass
 direct =NO              : pass
 exist  = F : pass
 form   =FORMATTED       : pass
 formatted =YES             : pass
 name   =xxx             : fail
 named  = F : fail
 number =         -42 : fail
 opened = F : fail
 pad    =YES             : pass
 position =REWIND          : pass
 read   =YES             : pass
 readwrite =YES             : pass
 sequential =YES             : pass
 unformatted =NO              : pass
 write  =YES             : pass
 decimal =POINT               : pass
 encoding =UNKNOWN             : pass
 round  =PROCESSOR_DEFINED   : pass
 sign   =PROCESSOR_DEFINED   : pass
 stream =NO                  : pass

 Connected INQUIRE by unit (sequential)
 iostat =           0 : pass
 access =SEQUENTIAL      : pass
 action =READWRITE       : pass
 blank  =NULL            : pass
 delim  =NONE            : pass
 direct =NO              : pass
 exist  = F : pass
 form   =FORMATTED       : pass
 formatted =YES             : fail
 name   =xxx             : fail
 named  = F : fail
 number =         -42 : fail
 opened = F : fail
 pad    =YES             : pass
 position =REWIND          : pass
 read   =YES             : pass
 readwrite =YES             : pass
 sequential =YES             : pass
 unformatted =NO              : pass
 write  =YES             : pass
 decimal =POINT               : pass
 encoding =UNKNOWN             : pass
 round  =PROCESSOR_DEFINED   : pass
 sign   =PROCESSOR_DEFINED   : pass
 stream =NO                  : pass

 Connected INQUIRE by file (direct)
 iostat =           0 : pass
 access =DIRECT          : pass
 action =READWRITE       : pass
 blank  =NULL            : pass
 delim  =NONE            : pass
 direct =YES             : pass
 exist  = F : pass
 form   =FORMATTED       : pass
 formatted =YES             : fail
 name   =xxx             : fail
 named  = F : fail
 nextrec =           2 : pass
 number =         -42 : fail
 opened = F : fail
 pad    =YES             : pass
 position =UNDEFINED       : fail
 read   =YES             : pass
 readwrite =YES             : pass
 recl   =          12 : pass
 sequential =NO              : pass
 unformatted =NO              : pass
 write  =YES             : pass

 Connected INQUIRE by unit (direct)
 iostat =           0 : pass
 access =DIRECT          : pass
 action =READWRITE       : pass
 blank  =NULL            : pass
 delim  =NONE            : pass
 direct =YES             : pass
 exist  = F : pass
 form   =FORMATTED       : pass
 formatted =YES             : pass
 name   =xxx             : fail
 named  = F : fail
 nextrec =           2 : pass
 number =         -42 : fail
 opened = F : fail
 pad    =YES             : pass
 position =UNDEFINED       : fail
 read   =YES             : pass
 readwrite =YES             : pass
 recl   =          12 : pass
 sequential =NO              : pass
 unformatted =NO              : pass
 write  =YES             : pass
$

Reply via email to