From: Janus Weil <janus@gcc.gnu.org>
Date: Sat, 21 May 2011 19:12:51 +0000 (+0200)
Subject: re PR fortran/48699 ([OOP] MOVE_ALLOC inside SELECT TYPE)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=43a9eec7c4ce367bd971617831372cc53bbeb85a;p=gcc.git

re PR fortran/48699 ([OOP] MOVE_ALLOC inside SELECT TYPE)

2011-05-21  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/48699
	* match.c (select_type_set_tmp): Make the temporary ALLOCATABLE if the
	selector is ALLOCATABLE.

2011-05-21  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/48699
	* gfortran.dg/select_type_23.f03: New.

From-SVN: r174001
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 45ca79c6d86..b0f4e92d74d 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2011-05-21  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/48699
+	* match.c (select_type_set_tmp): Make the temporary ALLOCATABLE if the
+	selector is ALLOCATABLE.
+
 2011-05-20  Janus Weil  <janus@gcc.gnu.org>
 
 	PR fortran/48706
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index f1c953adcbe..75f2a7fc570 100644
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -4533,7 +4533,11 @@ select_type_set_tmp (gfc_typespec *ts)
   gfc_get_sym_tree (name, gfc_current_ns, &tmp, false);
   gfc_add_type (tmp->n.sym, ts, NULL);
   gfc_set_sym_referenced (tmp->n.sym);
-  gfc_add_pointer (&tmp->n.sym->attr, NULL);
+  if (select_type_stack->selector->ts.type == BT_CLASS &&
+      CLASS_DATA (select_type_stack->selector)->attr.allocatable)
+    gfc_add_allocatable (&tmp->n.sym->attr, NULL);
+  else
+    gfc_add_pointer (&tmp->n.sym->attr, NULL);
   gfc_add_flavor (&tmp->n.sym->attr, FL_VARIABLE, name, NULL);
   if (ts->type == BT_CLASS)
     gfc_build_class_symbol (&tmp->n.sym->ts, &tmp->n.sym->attr,
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d5fba0b51fd..fa4549c7441 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-21  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/48699
+	* gfortran.dg/select_type_23.f03: New.
+
 2011-05-20  Jason Merrill  <jason@redhat.com>
 
 	* g++.dg/cpp0x/defaulted26.C: New.
diff --git a/gcc/testsuite/gfortran.dg/select_type_23.f03 b/gcc/testsuite/gfortran.dg/select_type_23.f03
new file mode 100644
index 00000000000..d7788d2f494
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/select_type_23.f03
@@ -0,0 +1,22 @@
+! { dg-do compile }
+!
+! PR 48699: [OOP] MOVE_ALLOC inside SELECT TYPE
+!
+! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
+
+program testmv2
+
+  type bar
+    integer, allocatable  :: ia(:), ja(:)
+  end type bar
+
+  class(bar), allocatable :: sm,sm2
+
+  allocate(sm2)
+
+  select type(sm2) 
+  type is (bar)
+    call move_alloc(sm2,sm)
+  end select
+
+end program testmv2