diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-03-30 13:41:10 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-03-30 13:41:10 +0000 |
| commit | 5c95b82b6172424908142c65a9c5c6d619e9579a (patch) | |
| tree | ef5462b562842c80f55ec02f8bd1ec03109ad27d | |
| parent | 29b129b8555d53be185b442814b2396585418878 (diff) | |
| download | gcc-5c95b82b6172424908142c65a9c5c6d619e9579a.zip gcc-5c95b82b6172424908142c65a9c5c6d619e9579a.tar.gz gcc-5c95b82b6172424908142c65a9c5c6d619e9579a.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pointer_intent_8.f90 | 22 |
2 files changed, 27 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f5f5bbf..9c583a3 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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. diff --git a/gcc/testsuite/gfortran.dg/pointer_intent_8.f90 b/gcc/testsuite/gfortran.dg/pointer_intent_8.f90 new file mode 100644 index 0000000..6bfbc5c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pointer_intent_8.f90 @@ -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 |