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

re PR libfortran/20163 ([4.0 only] gfortran - error opening direct access file)

Browse Source 
2005-04-09  Thomas Koenig  <Thomas.Koenig@online.de>

        PR libfortran/20163
        * gfortran.dg/open-options-blanks.f:  New test.

From-SVN: r97924
This commit is contained in:
Thomas Koenig 2005-04-09 19:40:48 +00:00 committed by Thomas Koenig
parent 130bcb37be
commit bd0e28a2ad
2 changed files with 12 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-04-09 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/20163
* gfortran.dg/open-options-blanks.f: New test.
2005-04-09 Andrew Pinski <pinskia@physics.uc.edu>
PR fortran/13257

7
gcc/testsuite/gfortran.dg/open-options-blanks.f Normal file
View File

@ -0,0 +1,7 @@
! { dg-do run }
! PR 20163, first half: Trailing blanks on an option to
! open used to cause an error
CHARACTER*8 ST
ST = 'SCRATCH '
OPEN(UNIT=10,STATUS=ST)
END