OSDN Git Service

2010-04-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 24 Apr 2010 12:07:07 +0000 (12:07 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 24 Apr 2010 12:07:07 +0000 (12:07 +0000)
PR fortran/43832
* gfortran.dg/open_nounit.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@158685 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/open_nounit.f90 [new file with mode: 0644]

index d4331be..ae0519b 100644 (file)
@@ -1,3 +1,8 @@
+2010-04-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/43832
+       * gfortran.dg/open_nounit.f90: New test.
+
 2010-04-24  Paul Thomas  <pault@gcc.gnu.org>
 
        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 (file)
index 0000000..8781f6f
--- /dev/null
@@ -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
+