From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Mon, 25 Jan 2021 19:27:15 +0000 (+0100)
Subject: Commit test case for PR 96386.
X-Git-Tag: basepoints/gcc-12~1358
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7d54cccad332074d5fb81123796239f0f61b11a7;p=thirdparty%2Fgcc.git

Commit test case for PR 96386.

gcc/testsuite/ChangeLog:

	* gfortran.dg/associate_57.f90: New test.
---

diff --git a/gcc/testsuite/gfortran.dg/associate_57.f90 b/gcc/testsuite/gfortran.dg/associate_57.f90
new file mode 100644
index 000000000000..80c766841747
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/associate_57.f90
@@ -0,0 +1,47 @@
+! { dg-do compile }
+! PR 96386 - this used to cause an ICE.
+! Test case by Menno Deij - van Rijswijk.
+
+MODULE assoc
+
+TYPE Level3
+  INTEGER                      :: someNumber
+END TYPE Level3
+
+TYPE Level2
+  INTEGER                      :: nLevel3
+  TYPE (Level3), ALLOCATABLE   :: levels3(:)
+  
+END TYPE Level2
+
+TYPE Level1
+  INTEGER                      :: nLevel2
+  TYPE (Level2), ALLOCATABLE   :: levels2(:)
+END TYPE Level1
+
+TYPE outer_type
+  INTEGER                      :: nLevel1
+  TYPE (Level1), ALLOCATABLE   :: levels1(:)
+END TYPE outer_type
+
+TYPE(outer_type), TARGET       :: outer
+
+CONTAINS
+
+SUBROUTINE internal_compiler_error_repro()
+
+INTEGER F,B,Z
+
+ASSOCIATE(l1 => outer%levels1 ) ! <-- this gives an ICE
+!ASSOCIATE(l1 => outer%levels1(:) )  ! <-- No ICE if array spec is added
+  DO F=1,outer%nLevel1
+     ASSOCIATE(l2 => l1(F)%levels2 )
+       DO B=1,l2(F)%nLevel3 ! <-- condition for ICE to be triggered
+
+      END DO
+     END ASSOCIATE
+  END DO
+END ASSOCIATE 
+
+END SUBROUTINE internal_compiler_error_repro
+end module