From a3ba29377f13a923aafa90c3df852a235986e58a Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 24 Apr 2010 12:07:07 +0000 Subject: [PATCH] re PR fortran/43832 (OPEN statement not diagnosing missing unit number) 2010-04-24 Jerry DeLisle PR fortran/43832 * gfortran.dg/open_nounit.f90: New test. From-SVN: r158685 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/open_nounit.f90 | 6 ++++++ 2 files changed, 11 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/open_nounit.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d4331be40610..ae0519b041aa 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-04-24 Jerry DeLisle + + PR fortran/43832 + * gfortran.dg/open_nounit.f90: New test. + 2010-04-24 Paul Thomas PR fortran/43841 diff --git a/gcc/testsuite/gfortran.dg/open_nounit.f90 b/gcc/testsuite/gfortran.dg/open_nounit.f90 new file mode 100644 index 000000000000..8781f6f47e65 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/open_nounit.f90 @@ -0,0 +1,6 @@ +! { dg-do compile } +! PR43832 Missing UNIT in OPEN + open () ! { dg-error "must have UNIT" } + open (file="test") ! { dg-error "must have UNIT" } + end + -- 2.43.5