OSDN Git Service

2005-10-25 Feng Wang <fengwang@nudt.edu.cn>
authorfengwang <fengwang@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 25 Oct 2005 14:06:22 +0000 (14:06 +0000)
committerfengwang <fengwang@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 25 Oct 2005 14:06:22 +0000 (14:06 +0000)
commitc8f1568f8f55ae2a674e490d9c0c559950c77f0e
treee12dd319f2cc0587bce5949c803cad264e174183
parentb8b8590e46025237e7962830221f64a7f005b8b4
2005-10-25  Feng Wang  <fengwang@nudt.edu.cn>

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  <fengwang@nudt.edu.cn>

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@105887 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/trans-decl.c
gcc/fortran/trans-stmt.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/assign_5.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/assign_6.f [new file with mode: 0644]