re PR fortran/43169 ([OOP] gfortran rejects pure procedure with select type construct)
authorJanus Weil <janus@gcc.gnu.org>
Wed, 3 Mar 2010 15:12:40 +0000 (16:12 +0100)
committerJanus Weil <janus@gcc.gnu.org>
Wed, 3 Mar 2010 15:12:40 +0000 (16:12 +0100)
commitd1039125cf7fb52634de26fe93cd892e15db2756
tree8870cecc1afada0f27f66dd2049bafb6ec5f3eb5
parent2ba34efc55ba605a18f858dc0d043ea90a07042a
re PR fortran/43169 ([OOP] gfortran rejects pure procedure with select type construct)

2010-03-03  Janus Weil  <janus@gcc.gnu.org>

PR fortran/43169
* resolve.c (resolve_code): Correctly set gfc_current_ns for
EXEC_SELECT_TYPE.
(gfc_impure_variable): Make it work with sub-namespaces (BLOCK etc).
(gfc_pure): Ditto.

2010-03-03  Janus Weil  <janus@gcc.gnu.org>

PR fortran/43169
* gfortran.dg/impure_assignment_3.f90: New.

From-SVN: r157196
gcc/fortran/ChangeLog
gcc/fortran/resolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/impure_assignment_3.f90 [new file with mode: 0644]