re PR libfortran/16935 (Segmentation fault of compiler with unsupported control items in OPEN)

2004-08-13  Bud Davis  <bdavis9659@comcast.net>

        PR gfortran/13965
        * gfortran.fortran-torture/execute/open_rewind.f90: New test.
        * io/open.c (st_open): use flags instead of the unit structure.

From-SVN: r85966

gcc/testsuite/ChangeLog

+2004-08-13  Bud Davis  <bdavis9659@comcast.net>
+
+	* gfortran.fortran-torture/execute/open_rewind.f90: New test.
+
 2004-08-13  Janis Johnson  <janis187@us.ibm.com>
 
 	* g++.dg/ext/altivec-2.C: Revert previous changes and don't execute.

gcc/testsuite/gfortran.dg/pr16935.f90

+! { dg-do run }
+! pr16935
+! segfault at run time on open statement
+       program bug2
+       implicit none
+       open( 1 , file = "str_500.txt", position = "REWIND" )
+       end

libgfortran/ChangeLog

+2004-08-13  Bud Davis  <bdavis9659@comcast.net>
+
+	PR gfortran/13965
+	* io/open.c (st_open): use flags instead of the unit structure.
+
 2004-08-10  Victor Leikehman  <lei@il.ibm.com>
 
 	* io/list_read.c (namelist_read): Convert variable names

libgfortran/io/open.c

@@ -506,8 +506,8 @@ st_open (void)
   if (ioparm.unit < 0)
     generate_error (ERROR_BAD_OPTION, "Bad unit number in OPEN statement");
 
-  if (flags.position != POSITION_UNSPECIFIED &&
-      u->flags.access == ACCESS_DIRECT)
+  if (flags.position != POSITION_UNSPECIFIED
+      && flags.access == ACCESS_DIRECT)
     generate_error (ERROR_BAD_OPTION,
 		    "Cannot use POSITION with direct access files");