| ! { 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") STOP 1 |
| |
| inquire(unit=10, direct=drct, opened=opn, access=acc) |
| if (drct.ne."UNKNOWN" .and. opn .and. acc.ne."UNDEFINED") STOP 2 |
| |
| inquire(unit=10, direct=drct, opened=opn, access=acc, formatted=frmt) |
| if (drct.ne."UNKNOWN" .and. opn .and. acc.ne."UNDEFINED") STOP 3 |
| if (frmt.ne."UNKNOWN") STOP 4 |
| |
| 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") STOP 5 |
| if (frmt.ne."YES") STOP 6 |
| |
| ! 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") STOP 7 |
| if (frmt.ne."YES") STOP 8 |
| 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") STOP 9 |
| if (frmt.ne."UNKNOWN") STOP 10 |
| |
| 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") STOP 11 |
| if (frmt.ne."NO") STOP 12 |
| 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") STOP 13 |
| |
| ! 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") STOP 14 |
| if (frmt.ne."NO") STOP 15 |
| 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") STOP 16 |
| if (frmt.ne."UNKNOWN") STOP 17 |
| |
| 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") STOP 18 |
| if (frmt.ne."YES") STOP 19 |
| 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") STOP 20 |
| 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") STOP 21 |
| |
| ! 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") STOP 22 |
| 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") STOP 23 |
| |
| 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") STOP 24 |
| |
| ! 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") STOP 25 |
| 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") STOP 26 |
| stop |
| |
| 170 write(*,*) "ERROR: unable to open testdirect.f" |
| end |