FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

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

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

From-SVN: r107665
This commit is contained in:
Jakub Jelinek 2005-11-29 13:00:01 +01:00 • committed by Jakub Jelinek
parent a4b6c45ad3
commit 1e90e92f6d
4 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -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

1
gcc/fortran/io.c
View file

@ -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);

4
gcc/testsuite/ChangeLog
View file

@ -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.

6
gcc/testsuite/gfortran.dg/open_access_1.f90 Normal file
View file

@ -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