From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sun, 19 May 2019 11:26:20 +0000 (+0000)
Subject: re PR fortran/78290 (Gfortran incorrectly creates a copy of an array passed to an... 
X-Git-Tag: upstream/12.2.0~24545
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=20733f1b0db2770532afaff274e9231de37e50fc;p=platform%2Fupstream%2Fgcc.git

re PR fortran/78290 (Gfortran incorrectly creates a copy of an array passed to an array pointer dummy argument)

2019-05-19  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/78290
	* gfortran.dg/pr78290.f90: New test.

From-SVN: r271379
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4dad098..1352e61 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,10 @@
 2019-05-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
+	PR fortran/78290
+	* gfortran.dg/pr78290.f90: New test.
+
+2019-05-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
 	PR fortran/88821
 	* gfortran.dg/alloc_comp_auto_array_3.f90: Add -O0 to dg-options
 	to make sure the test for internal_pack is retained.
diff --git a/gcc/testsuite/gfortran.dg/pr78290.f90 b/gcc/testsuite/gfortran.dg/pr78290.f90
new file mode 100644
index 0000000..fe0e319
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr78290.f90
@@ -0,0 +1,35 @@
+! { dg-do run }
+! PR 78290 - used to give an ICE (with VOLATILE) and wrong
+! code without it.
+! Original test case by Andy Bennet.
+PROGRAM main
+  IMPLICIT NONE
+  INTEGER,PARAMETER::KI=4
+
+  TYPE mytype
+    INTEGER(KIND=KI)::i=1_KI
+  END TYPE mytype
+
+  TYPE(mytype),    DIMENSION(9),TARGET, SAVE::ta
+  INTEGER(KIND=KI),DIMENSION(3),TARGET, SAVE::ia    = 3_KI
+  INTEGER(KIND=KI),DIMENSION(:),POINTER     ::ia2   =>NULL()
+  INTEGER(KIND=KI),DIMENSION(:),POINTER     ::ip    =>NULL()
+ volatile::ip
+  ALLOCATE(ia2(5)); ia2=2_KI
+  ip=>ia
+  if (size(ip) /= 3) stop 1
+  CALL sub1(ip)
+  if (size(ip) /= 5) stop 2
+  if (any(ia /= [3,3,3])) stop 3
+  if (any (ip /= [2,2,2,2,2])) stop 4
+
+  ip=>ta%i
+
+CONTAINS
+
+  SUBROUTINE sub1(ipa)
+    INTEGER(KIND=KI),DIMENSION(:),POINTER::ipa
+    ipa => ia2
+  END SUBROUTINE sub1
+
+END PROGRAM main