------- Comment #11 from cvs-commit at gcc dot gnu dot org  2005-10-25 13:44 
-------
Subject: Bug 22290

CVSROOT:        /cvs/gcc
Module name:    gcc
Branch:         gcc-4_0-branch
Changes by:     [EMAIL PROTECTED]    2005-10-25 13:44:46

Modified files:
        gcc/testsuite  : ChangeLog 
        gcc/fortran    : ChangeLog trans-decl.c trans-stmt.c 
Added files:
        gcc/testsuite/gfortran.dg: assign_5.f90 assign_6.f 

Log message:
        2005-10-25  Feng Wang  <[EMAIL PROTECTED]>

        PR fortran/22290
        * trans-decl.c (gfc_add_assign_aux_vars): New function. Add two
        auxiliary variables.
        (gfc_get_symbol_decl): Use it when a variable, including dummy
        argument, is assigned a label.
        (gfc_trans_assign_aux_var): New function. Set initial value of
        the auxiliary variable explicitly.
        (gfc_trans_deferred_vars): Use it.
        * trans-stmt.c (gfc_conv_label_variable): Handle dummy argument.

        2005-10-25  Feng Wang  <[EMAIL PROTECTED]>

        PR fortran/22290
        * gfortran.dg/assign_5.f90: New test.
        * gfortran.dg/assign_6.f: New test.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.5084.2.488&r2=1.5084.2.489
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/assign_5.f90.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=NONE&r2=1.1.2.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/assign_6.f.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=NONE&r2=1.1.2.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.335.2.141&r2=1.335.2.142
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/trans-decl.c.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.54.2.6&r2=1.54.2.7
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/trans-stmt.c.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.24.6.10&r2=1.24.6.11


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22290

Reply via email to