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

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

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

From-SVN: r107665

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 373f0e6b776b6f201689d402582ed544b355adfa..5aafa484a91ba49eeca94eba3302b662eb21fb57 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index 26c335688fc8475da7aa14e99243782e849be411..9ef97e84b7dc79372963b2572da8bff46eb8772a 100644 (file)
--- a/gcc/fortran/io.c
+++ b/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);
 

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index fc737a8b1a9fc0cd337926232fd9eb1dca37924f..5c6b4c35598e279776bfe0a9b96d592cabe60f1a 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/testsuite/gfortran.dg/open_access_1.f90 b/gcc/testsuite/gfortran.dg/open_access_1.f90
new file mode 100644 (file)
index 0000000..9546617
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/open_access_1.f90
@@ -0,0 +1,6 @@
+! { dg-do compile }
+
+  real :: a
+  a = 6.0
+  open (unit = 6, file = 'foo', access = a) ! { dg-error "must be of type CHARACTER" }
+end