1! { dg-do run }
2! PR93234 Inquire by UNIT on preopened unit failed on ROUND= and SIGN=
3program inquire_browse
4implicit none
5integer                              :: ios
6character(len=256)                   :: message
7   !==============================================================================================
8      character(len=20)              :: name           ; namelist/inquire/name
9      integer                        :: unit           ; namelist/inquire/unit
10      integer                        :: id             ; namelist/inquire/id
11   !==============================================================================================
12      integer                        :: recl           ; namelist/inquire/recl
13      integer                        :: nextrec        ; namelist/inquire/nextrec
14      integer                        :: pos            ; namelist/inquire/pos
15      integer                        :: size           ; namelist/inquire/size
16   !==============================================================================================
17   !  ACCESS    =  SEQUENTIAL  |  DIRECT       |  STREAM
18      character(len=20)              :: access         ; namelist/inquire/access
19      character(len=20)              :: sequential     ; namelist/inquire/sequential
20      character(len=20)              :: stream         ; namelist/inquire/stream
21      character(len=20)              :: direct         ; namelist/inquire/direct
22   !  ACTION    =  READ        | WRITE         |  READWRITE
23      character(len=20)              :: action         ; namelist/inquire/action
24      character(len=20)              :: read           ; namelist/inquire/read
25      character(len=20)              :: write          ; namelist/inquire/write
26      character(len=20)              :: readwrite      ; namelist/inquire/readwrite
27   !  FORM      =  FORMATTED   |  UNFORMATTED
28      cHaracter(len=20)              :: form           ; namelist/inquire/form
29      character(len=20)              :: formatted      ; namelist/inquire/formatted
30      character(len=20)              :: unformatted    ; namelist/inquire/unformatted
31   !  POSITION  =  ASIS        |  REWIND       |  APPEND
32      character(len=20)              :: position       ; namelist/inquire/position
33   !==============================================================================================
34      character(len=20)              :: blank          ; namelist/inquire/blank
35      character(len=20)              :: decimal        ; namelist/inquire/decimal
36      character(len=20)              :: sign           ; namelist/inquire/sign
37      character(len=20)              :: round          ; namelist/inquire/round
38      character(len=20)              :: delim          ; namelist/inquire/delim
39      character(len=20)              :: encoding       ; namelist/inquire/encoding
40      character(len=20)              :: pad            ; namelist/inquire/pad
41   !==============================================================================================
42      logical                        :: named          ; namelist/inquire/named
43      logical                        :: opened         ; namelist/inquire/opened
44      logical                        :: exist          ; namelist/inquire/exist
45      integer                        :: number         ; namelist/inquire/number
46      logical                        :: pending        ; namelist/inquire/pending
47      character(len=20)              :: asynchronous   ; namelist/inquire/asynchronous
48   !==============================================================================================
49   unit=5
50   !!include "setunit_and_open.inc"
51   inquire(unit=unit,sign=sign)
52   inquire(unit=unit,round=round)
53         inquire(unit=unit,                                                                              &
54     &   recl=recl,nextrec=nextrec,pos=pos,size=size,                                                    &
55     &   name=name,position=position,                                                                    &
56     &   form=form,formatted=formatted,unformatted=unformatted,                                          &
57     &   access=access,sequential=sequential,direct=direct,stream=stream,                                &
58     &   action=action,read=read,write=write,readwrite=readwrite,                                        &
59     &   blank=blank,decimal=decimal,delim=delim,encoding=encoding,pad=pad,                              &
60     &   named=named,opened=opened,exist=exist,number=number,pending=pending,asynchronous=asynchronous,  &
61     &   iostat=ios,err=999,iomsg=message)
62999  continue
63     if(ios.eq.0)then
64        !write(*,nml=inquire,delim='none')
65     else
66        stop 1
67     endif
68end program inquire_browse
69