OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/44541 ([OOP] wrong code for polymorphic variable with INTENT(OUT)/Alloc w/ MOLD)

Browse Source 
2010-09-02  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/44541
	* resolve.c (resolve_symbol): Correct check for attributes of CLASS
	variable.

From-SVN: r163773
This commit is contained in:
Janus Weil 2010-09-02 14:34:26 +02:00
parent 2d2bd949ea
commit c330d181bc
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2010-09-02 Janus Weil <janus@gcc.gnu.org>
PR fortran/44541
* resolve.c (resolve_symbol): Correct check for attributes of CLASS
variable.
2010-09-02 Tobias Burnus <burnus@net-b.de>
PR fortran/45489

3
gcc/fortran/resolve.c
View File

@ -12166,7 +12166,8 @@ resolve_symbol (gfc_symbol *sym)
if (sym->ts.type == BT_CLASS && sym->ns == gfc_current_ns
&& sym->attr.dummy && sym->attr.intent == INTENT_OUT
&& !sym->attr.pointer && !sym->attr.allocatable)
&& !CLASS_DATA (sym)->attr.class_pointer
&& !CLASS_DATA (sym)->attr.allocatable)
apply_default_init (sym);
/* If this symbol has a type-spec, check it. */