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