From 20733f1b0db2770532afaff274e9231de37e50fc Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sun, 19 May 2019 11:26:20 +0000 Subject: [PATCH] re PR fortran/78290 (Gfortran incorrectly creates a copy of an array passed to an array pointer dummy argument) 2019-05-19 Thomas Koenig PR fortran/78290 * gfortran.dg/pr78290.f90: New test. From-SVN: r271379 --- gcc/testsuite/ChangeLog | 5 ++++ gcc/testsuite/gfortran.dg/pr78290.f90 | 35 +++++++++++++++++++++++++++ 2 files changed, 40 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/pr78290.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4dad098a76f..1352e61c9f4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2019-05-19 Thomas Koenig + + PR fortran/78290 + * gfortran.dg/pr78290.f90: New test. + 2019-05-19 Thomas Koenig PR fortran/88821 diff --git a/gcc/testsuite/gfortran.dg/pr78290.f90 b/gcc/testsuite/gfortran.dg/pr78290.f90 new file mode 100644 index 00000000000..fe0e319ac56 --- /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 -- 2.30.2