mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 10:50:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/20846 (inquire(FILE=..., UNIT=...) not flagged as error)

Browse Source 
PR fortran/20846
* gfortran.dg/inquire_8.f90: New test.

From-SVN: r100339
This commit is contained in:
Steven G. Kargl 2005-05-30 00:19:43 +00:00
parent 44998b6526
commit 36eb88745d
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2005-05-30 Steven G. Kargl
PR fortran/20846
* gfortran.dg/inquire_8.f90: New test.
2005-05-29 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/21376

10
gcc/testsuite/gfortran.dg/inquire_8.f90 Normal file
View File

@ -0,0 +1,10 @@
! { dg-do compile }
! fortran/pr20846
program inquire_8
character(len=20) :: n = 'data'
integer :: d = 23
logical a
inquire(file=n,unit=d,opened=a) ! { dg-error "contain both FILE and UNIT" }
inquire(unit=d,file=n,opened=a) ! { dg-error "contain both FILE and UNIT" }
inquire(opened=a) ! { dg-error "requires either FILE or UNIT" }
end program inquire_8