* io.c (gfc_resolve_open): RESOLVE_TAG access field as well.

	* gfortran.dg/open_access_1.f90: New test.


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

gcc/fortran/ChangeLog

+2005-11-29  Jakub Jelinek  <jakub@redhat.com>
+
+	* io.c (gfc_resolve_open): RESOLVE_TAG access field as well.
+
 2005-11-27 Bernhard Fischer <rep.nop@aon.at>
 
 	* gfortran.h: remove superfluous whitespace and use GNU

gcc/fortran/io.c

@@ -1149,6 +1149,7 @@ gfc_resolve_open (gfc_open * open)
   RESOLVE_TAG (&tag_iostat, open->iostat);
   RESOLVE_TAG (&tag_file, open->file);
   RESOLVE_TAG (&tag_status, open->status);
+  RESOLVE_TAG (&tag_e_access, open->access);
   RESOLVE_TAG (&tag_e_form, open->form);
   RESOLVE_TAG (&tag_e_recl, open->recl);
 

gcc/testsuite/ChangeLog

+2005-11-29  Jakub Jelinek  <jakub@redhat.com>
+
+	* gfortran.dg/open_access_1.f90: New test.
+
 2005-11-29  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 	* gcc.dg/charset/builtin2.c: New test.

gcc/testsuite/gfortran.dg/open_access_1.f90

+! { dg-do compile }
+
+  real :: a
+  a = 6.0
+  open (unit = 6, file = 'foo', access = a) ! { dg-error "must be of type CHARACTER" }
+end