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 /gcc/fortran/io.c | |
| 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
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 1 |
1 files changed, 1 insertions, 0 deletions
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); |