diff options
author | Jakub Jelinek <jakub@redhat.com> | 2005-11-29 13:00:01 +0100 |
---|---|---|
committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2005-11-29 13:00:01 +0100 |
commit | 1e90e92f6dd9f7bc11abb6e8c116d5481b98fe36 (patch) | |
tree | bcd2a92afa1b7d4eeeaac46406ed5c995200255e | |
parent | a4b6c45ad34979fac4d9fed12e88fde9b52f6d7b (diff) | |
download | gcc-1e90e92f6dd9f7bc11abb6e8c116d5481b98fe36.zip gcc-1e90e92f6dd9f7bc11abb6e8c116d5481b98fe36.tar.gz gcc-1e90e92f6dd9f7bc11abb6e8c116d5481b98fe36.tar.bz2 |
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
-rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/fortran/io.c | 1 | ||||
-rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/open_access_1.f90 | 6 |
4 files changed, 15 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 373f0e6..5aafa48 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 26c3356..9ef97e8 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 fc737a8..5c6b4c3 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 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 |