From bd0e28a2adf23055c04afb46a8cda62bc02265b1 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sat, 9 Apr 2005 19:40:48 +0000 Subject: [PATCH] re PR libfortran/20163 ([4.0 only] gfortran - error opening direct access file) 2005-04-09 Thomas Koenig PR libfortran/20163 * gfortran.dg/open-options-blanks.f: New test. From-SVN: r97924 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/open-options-blanks.f | 7 +++++++ 2 files changed, 12 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/open-options-blanks.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0d2afe783b7..fe7b88ea7ac 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-04-09 Thomas Koenig + + PR libfortran/20163 + * gfortran.dg/open-options-blanks.f: New test. + 2005-04-09 Andrew Pinski PR fortran/13257 diff --git a/gcc/testsuite/gfortran.dg/open-options-blanks.f b/gcc/testsuite/gfortran.dg/open-options-blanks.f new file mode 100644 index 00000000000..8f5faa41629 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/open-options-blanks.f @@ -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 -- 2.30.2