obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 35 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/derived_comp_array_ref_1.f90 b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_1.f90
new file mode 100644
index 000000000..1a868f391
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/derived_comp_array_ref_1.f90
@@ -0,0 +1,35 @@
+! { dg-do run }
+! Tests the fix for PR27411, in which the array reference on line
+! 18 caused an ICE because the derived type, rather than its integer
+! component, was appearing in the index expression.
+!
+! Contributed by Richard Maine  <1fhcwee02@sneakemail.com>
+!
+module gd_calc
+  type calc_signal_type
+    integer :: dummy
+    logical :: used
+    integer :: signal_number
+  end type
+contains
+  subroutine activate_gd_calcs (used, outputs)
+    logical, intent(inout) :: used(:)
+    type(calc_signal_type), pointer :: outputs(:)
+      outputs%used = used(outputs%signal_number)
+    return
+  end subroutine activate_gd_calcs
+end module gd_calc
+
+  use gd_calc
+  integer, parameter :: ndim = 4
+  integer :: i
+  logical :: used_(ndim)
+  type(calc_signal_type), pointer :: outputs_(:)
+  allocate (outputs_(ndim))
+  forall (i = 1:ndim) outputs_(i)%signal_number = ndim + 1 - i
+  used_ = (/.true., .false., .true., .true./)
+  call activate_gd_calcs (used_, outputs_)
+  if (any (outputs_(ndim:1:-1)%used .neqv. used_)) call abort ()
+end
+
+! { dg-final { cleanup-modules "gd_calc" } }