OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_13.f90] - Diff between revs 302 and 384

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.