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 3cff8d7cc546fa8509043b3cb657ce6894e1852e..d32e26cdb279a699f1c36b6e5bf277ce3bd9ea0c 100644 (file)
--- 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 8a09a28b2898dbc3f92963bb9433b3e41431a3c3..504c7cf7d6bf464d34dde186338d81f72848ece1 100644 (file)
--- 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 140630e8fc8ca6cd2da905613d344a7a3e02ff3b..708f3fd78dc5ec552cfed2c2f8abf7740c0ff75a 100644 (file)
--- 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 (file)
index 0000000..c4e3c7a
--- /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