[Bug fortran/41579] [OOP/Polymorphism] Nesting of SELECT TYPE

["janus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

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

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