From: Janus Weil <janus@gcc.gnu.org>
Date: Fri, 14 Oct 2011 17:59:29 +0000 (+0200)
Subject: re PR fortran/50570 (Incorrect error for assignment to intent(in) pointer)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6fd7dd571975911d0f8cafe6660c0ab2608d3143;p=gcc.git

re PR fortran/50570 (Incorrect error for assignment to intent(in) pointer)

2011-10-14  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/50570
	* expr.c (gfc_check_vardef_context): Don't throw an error on
	non-pointer assignments involving an intent(in) pointer dummy.


2011-10-14  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/50570
	* gfortran.dg/pointer_intent_5.f90: New.

From-SVN: r180000
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3cff8d7cc54..d32e26cdb27 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2011-10-14  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/50570
+	* expr.c (gfc_check_vardef_context): Don't throw an error on
+	non-pointer assignments involving an intent(in) pointer dummy.
+
 2011-10-14  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/50718
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c
index 8a09a28b289..504c7cf7d6b 100644
--- a/gcc/fortran/expr.c
+++ b/gcc/fortran/expr.c
@@ -4635,7 +4635,7 @@ gfc_check_vardef_context (gfc_expr* e, bool pointer, bool alloc_obj,
 		       sym->name, context, &e->where);
 	  return FAILURE;
 	}
-      if (!pointer && !is_pointer)
+      if (!pointer && !is_pointer && !sym->attr.pointer)
 	{
 	  if (context)
 	    gfc_error ("Dummy argument '%s' with INTENT(IN) in variable"
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 140630e8fc8..708f3fd78dc 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-14  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/50570
+	* gfortran.dg/pointer_intent_5.f90: New.
+
 2011-10-14  Artjoms Sinkarovs  <artyom.shinkaroff@gmail.com>
 
 	* gcc.target/i386/warn-vect-op-3.c: Exclude 32-bit architectures.
diff --git a/gcc/testsuite/gfortran.dg/pointer_intent_5.f90 b/gcc/testsuite/gfortran.dg/pointer_intent_5.f90
new file mode 100644
index 00000000000..c4e3c7a3c1d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pointer_intent_5.f90
@@ -0,0 +1,24 @@
+! { dg-do run }
+!
+! PR 50570: [4.6/4.7 Regression] Incorrect error for assignment to intent(in) pointer
+!
+! Contributed by Bill Long <longb@cray.com>
+
+program bots_sparselu_pointer_intent_in
+
+  implicit none
+  integer, pointer :: array(:)
+
+  allocate(array(4))
+  array = 0
+  call sub(array)
+  if (sum(array)/=1) call abort
+
+contains
+
+  subroutine sub(dummy)
+    integer, pointer, intent(in) :: dummy(:)
+    dummy(1) = 1
+  end subroutine sub
+
+end program