OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/89866 ([F08] wrong-code problem with POINTER, INTENT(IN) argument) 

2019-03-30  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/89866
	* gfortran.dg/pointer_intent_8.f90: New test.

From-SVN: r270034
This commit is contained in:
Thomas Koenig 2019-03-30 13:41:10 +00:00
parent 29b129b855
commit 5c95b82b61
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2019-03-30 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/89866
* gfortran.dg/pointer_intent_8.f90: New test.
2019-03-29 Jim Wilson <jimw@sifive.com>
* gcc.target/riscv/predef-1.c: New.

22
gcc/testsuite/gfortran.dg/pointer_intent_8.f90 Normal file
View File

@ -0,0 +1,22 @@
! { dg-do run }
! PR 85797 - this used to get wrong results.
PROGRAM testfortran2
IMPLICIT NONE
INTEGER, DIMENSION(10), TARGET :: i4array
i4array = (/ 1,2,3,4,5,6,7,8,9,10 /)
call InRef(i4array)
CONTAINS
subroutine InRef(v)
INTEGER, DIMENSION(:), POINTER, INTENT(in) :: v
INTEGER :: i
if (any (v /= [(i,i=1,10)])) stop 1
END subroutine
END