OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/34795 (inquire statement , direct= specifier incorrectly returns YES) 

2008-01-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/34795
	* gfortran.dg/inquire_13.f90: New test.
	
	PR libfortran/34659
	* gfortran.dg/continuation_9.f90: New test.

From-SVN: r131673
This commit is contained in:
Jerry DeLisle 2008-01-20 06:48:39 +00:00
parent 17c2c96cdc
commit c13ff92614
3 changed files with 120 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2008-01-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/34795
* gfortran.dg/inquire_13.f90: New test.
PR libfortran/34659
* gfortran.dg/continuation_9.f90: New test.
2008-01-20 Richard Sandiford <rsandifo@nildram.co.uk>
PR target/34831
@ -49,9 +57,9 @@
* gfortran.dg/bom_error.f90: Ditto.
* gfortran.dg/func_decl_4.f90: Ditto.
2007-01-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2008-01-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR target/34782
PR libfortran/34782
* gfortran.dg/fmt_t_6.f: New test.
2008-01-18 Tobias Burnus <burnus@net-b.de>

9
gcc/testsuite/gfortran.dg/continuation_9.f90 Normal file
View File

@ -0,0 +1,9 @@
! { dg-do compile }
! { dg-options "-std=f95" }
&
&
&
end
! { dg-error "not allowed by itself in line 3" "" {target "*-*-*"} 0 }
! { dg-error "not allowed by itself in line 4" "" {target "*-*-*"} 0 }
! { dg-error "not allowed by itself in line 5" "" {target "*-*-*"} 0 }

101
gcc/testsuite/gfortran.dg/inquire_13.f90 Normal file
View File

@ -0,0 +1,101 @@
! { dg-do run }
! 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