OSDN Git Service

2009-10-09 Janus Weil <janus@gcc.gnu.org>
authorjanus <janus@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 9 Oct 2009 20:25:19 +0000 (20:25 +0000)
committerjanus <janus@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 9 Oct 2009 20:25:19 +0000 (20:25 +0000)
commitc151eaabaf50c3360ef47e70c15abd146ad11cd1
tree4469b291b15c4ee960294436b60b6b3e388e3d3c
parent7a1b314fb635a111e7e94b21699f290f2cd45067
2009-10-09  Janus Weil  <janus@gcc.gnu.org>

PR fortran/41579
* gfortran.h (gfc_select_type_stack): New struct, to be used as a stack
for SELECT TYPE statements.
(select_type_stack): New global variable.
(type_selector,select_type_tmp): Removed.
* match.c (type_selector,type_selector): Removed.
(select_type_stack): New variable, serving as a stack for
SELECT TYPE statements.
(select_type_push,select_type_set_tmp): New functions.
(gfc_match_select_type): Call select_type_push.
(gfc_match_type_is): Call select_type_set_tmp.
* parse.c (select_type_pop): New function.
(parse_select_type_block): Call select_type_pop.
* symbol.c (select_type_insert_tmp): New function.
(gfc_find_sym_tree): Call select_type_insert_tmp.

2009-10-09  Janus Weil  <janus@gcc.gnu.org>

PR fortran/41579
* gfortran.dg/select_type_6.f03: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@152600 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/gfortran.h
gcc/fortran/match.c
gcc/fortran/parse.c
gcc/fortran/symbol.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/select_type_6.f03 [new file with mode: 0644]