trans-expr.c (copyable_array_p): Consider user derived types without allocatable…

trans-expr.c (copyable_array_p): Consider user derived types without allocatable components to be copyable.


	* trans-expr.c (copyable_array_p): Consider user derived types without
	allocatable components to be copyable.

	* gfortran.dg/array_memcpy_4.f90: New test case.

From-SVN: r120906

gcc/fortran/ChangeLog

 2007-01-18  Roger Sayle  <roger@eyesopen.com>
 
+	* trans-expr.c (copyable_array_p): Consider user derived types without
+	allocatable components to be copyable.
+
+2007-01-18  Roger Sayle  <roger@eyesopen.com>
+
 	* trans-stmt.c (compute_overall_iter_number): Enhance to precompute
 	the number of interations in unconditional FORALL nests with constant
 	bounds.

gcc/fortran/trans-expr.c

@@ -3815,6 +3815,12 @@ copyable_array_p (gfc_expr * expr)
     case BT_LOGICAL:
       return true;
 
+    case BT_CHARACTER:
+      return false;
+
+    case BT_DERIVED:
+      return !expr->ts.derived->attr.alloc_comp;
+
     default:
       break;
     }

gcc/testsuite/ChangeLog

+2007-01-18  Roger Sayle  <roger@eyesopen.com>
+
+	* gfortran.dg/array_memcpy_4.f90: New test case.
+
 2007-01-18  Josh Conner  <jconner@apple.com>
 
 	PR target/30485

gcc/testsuite/gfortran.dg/array_memcpy_4.f90

+! { dg-do compile }
+! { dg-options "-O2 -fdump-tree-original" }
+  type t
+    logical valid
+    integer :: x, y
+  end type
+  type (t) :: s(5)
+  type (t) :: d(5)
+
+  d = s
+end
+! { dg-final { scan-tree-dump-times "d = " 1 "original" } }
+! { dg-final { cleanup-tree-dump "original" } }