------- Comment #2 from janus at gcc dot gnu dot org 2009-10-09 20:25 ------- Subject: Bug 41579
Author: janus Date: Fri Oct 9 20:25:19 2009 New Revision: 152600 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=152600 Log: 2009-10-09 Janus Weil <ja...@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 <ja...@gcc.gnu.org> PR fortran/41579 * gfortran.dg/select_type_6.f03: New test. Added: trunk/gcc/testsuite/gfortran.dg/select_type_6.f03 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/gfortran.h trunk/gcc/fortran/match.c trunk/gcc/fortran/parse.c trunk/gcc/fortran/symbol.c trunk/gcc/testsuite/ChangeLog -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41579
