From bc7307d8abfa39a7ec073d512a2c84eeaf84c5bf Mon Sep 17 00:00:00 2001
From: jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 29 Nov 2005 12:00:01 +0000
Subject: [PATCH] * 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 | 4 ++++
gcc/fortran/io.c | 1 +
gcc/testsuite/ChangeLog | 4 ++++
gcc/testsuite/gfortran.dg/open_access_1.f90 | 6 ++++++
4 files changed, 15 insertions(+)
create mode 100644 gcc/testsuite/gfortran.dg/open_access_1.f90
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 373f0e6b776b..5aafa484a91b 100644
--- 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 26c335688fc8..9ef97e84b7dc 100644
--- 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 fc737a8b1a9f..5c6b4c35598e 100644
--- 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
index 000000000000..95466177f411
--- /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
--
GitLab