! { dg-do run } ! { dg-options "-std=legacy" } ! ! PR34795 inquire statement , direct= specifier incorrectly returns YES ! Test case from PR, modified by Jerry DeLisle <jvdelisle@gcc.gnu.org program testinquire implicit none character drct*7, acc*12, frmt*12, seqn*12, fname*15 logical opn fname="inquire_13_test" inquire(unit=6, direct=drct, opened=opn, access=acc) if (drct.ne."NO" .and. .not.opn .and. acc.ne."SEQUENTIAL") call abort inquire(unit=10, direct=drct, opened=opn, access=acc) if (drct.ne."UNKNOWN" .and. opn .and. acc.ne."UNDEFINED") call abort inquire(unit=10, direct=drct, opened=opn, access=acc, formatted=frmt) if (drct.ne."UNKNOWN" .and. opn .and. acc.ne."UNDEFINED") call abort if (frmt.ne."UNKNOWN") call abort open(unit=19,file=fname,status='replace',err=170,form="formatted") inquire(unit=19, direct=drct, opened=opn, access=acc,formatted=frmt) if (drct.ne."NO" .and. .not.opn .and. acc.ne."SEQUENTIAL") call abort if (frmt.ne."YES") call abort ! Inquire on filename, open file with DIRECT and FORMATTED inquire(file=fname, direct=drct, opened=opn, access=acc, FORMATTED=frmt) if (drct.ne."NO" .and. .not.opn .and. acc.ne."SEQUENTIAL") call abort if (frmt.ne."YES") call abort close(19) ! Inquire on filename, closed file with DIRECT and FORMATTED inquire(file=fname, direct=drct, opened=opn, access=acc, formatted=frmt) if (drct.ne."UNKNOWN" .and. opn .and. acc.ne."UNDEFINED") call abort if (frmt.ne."UNKNOWN") call abort open(unit=19,file=fname,status='replace',err=170,form="unformatted") inquire(unit=19, direct=drct, opened=opn, access=acc, formatted=frmt) if (drct.ne."NO" .and. .not.opn .and. acc.ne."SEQUENTIAL") call abort if (frmt.ne."NO") call abort close(19) open(unit=19,file=fname,status='replace',err=170,form="formatted") inquire(unit=19, direct=drct, opened=opn, access=acc, unformatted=frmt) if (drct.ne."NO" .and. .not.opn .and. acc.ne."SEQUENTIAL") call abort ! Inquire on filename, open file with DIRECT and UNFORMATTED inquire(file=fname, direct=drct, opened=opn, access=acc, UNFORMATTED=frmt) if (drct.ne."NO" .and. .not.opn .and. acc.ne."SEQUENTIAL") call abort if (frmt.ne."NO") call abort close(19) ! Inquire on filename, closed file with DIRECT and UNFORMATTED inquire(file=fname, direct=drct, opened=opn, access=acc, unformatted=frmt) if (drct.ne."UNKNOWN" .and. opn .and. acc.ne."UNDEFINED") call abort if (frmt.ne."UNKNOWN") call abort open(unit=19,file=fname,status='replace',err=170,form="unformatted") inquire(unit=19, direct=drct, opened=opn, access=acc,unformatted=frmt) if (drct.ne."NO" .and. .not.opn .and. acc.ne."SEQUENTIAL") call abort if (frmt.ne."YES") call abort close(19) open(unit=19,file=fname,status='replace',err=170) inquire(unit=19, direct=drct, opened=opn, access=acc) if (drct.ne."NO" .and. .not.opn .and. acc.ne."SEQUENTIAL") call abort close(19) open(unit=19,file=fname,status='replace',err=170,access='SEQUENTIAL') inquire(unit=19, direct=drct, opened=opn, access=acc) if (drct.ne."NO" .and. .not.opn .and. acc.ne."SEQUENTIAL") call abort ! Inquire on filename, open file with SEQUENTIAL inquire(file=fname, SEQUENTIAL=seqn, opened=opn, access=acc) if (seqn.ne."YES" .and. .not.opn .and. acc.ne."DIRECT") call abort close(19) ! Inquire on filename, closed file with SEQUENTIAL inquire(file=fname, SEQUENTIAL=seqn, opened=opn, access=acc) if (seqn.ne."UNKNOWN" .and. opn .and. acc.ne."UNDEFINED") call abort open(unit=19,file=fname,status='replace',err=170,form='UNFORMATTED',access='DIRECT',recl=72) inquire(unit=19, direct=drct, opened=opn, access=acc) if (drct.ne."YES" .and. .not.opn .and. acc.ne."DIRECT") call abort ! Inquire on filename, open file with DIRECT inquire(file=fname, direct=drct, opened=opn, access=acc) if (drct.ne."YES" .and. .not.opn .and. acc.ne."DIRECT") call abort close(19, status="delete") ! Inquire on filename, closed file with DIRECT inquire(file=fname, direct=drct, opened=opn, access=acc) if (drct.ne."UNKNOWN" .and. opn .and. acc.ne."UNDEFINED") call abort stop 170 write(*,*) "ERROR: unable to open testdirect.f" end