diff options
author | domob <domob@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-07 09:11:53 +0000 |
---|---|---|
committer | domob <domob@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-07 09:11:53 +0000 |
commit | 38c3fa8a6c7d11433b114e35e867e1f575c12162 (patch) | |
tree | 91c9eb5e536a462f4482bed648a6bc49854fd7e3 /gcc | |
parent | 0da87323bb8260728b90f79bfe21dd6d742c547c (diff) | |
download | gcc-38c3fa8a6c7d11433b114e35e867e1f575c12162.tar.gz |
2008-09-07 Daniel Kraft <d@domob.eu>
* gfortran.dg/stfunc_6.f90: Extended testcase to include more tests
related to PURE and statement functions.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@140084 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/stfunc_6.f90 | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0ba477c31e4..7d83cbbbe97 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-09-07 Daniel Kraft <d@domob.eu> + + * gfortran.dg/stfunc_6.f90: Extended testcase to include more tests + related to PURE and statement functions. + 2008-09-07 Dorit Nuzman <dorit@il.ibm.com> Ira Rosen <irar@il.ibm.com> diff --git a/gcc/testsuite/gfortran.dg/stfunc_6.f90 b/gcc/testsuite/gfortran.dg/stfunc_6.f90 index 2ad791d3bbf..c5657833c0f 100644 --- a/gcc/testsuite/gfortran.dg/stfunc_6.f90 +++ b/gcc/testsuite/gfortran.dg/stfunc_6.f90 @@ -10,10 +10,13 @@ INTEGER :: st1, i = 99, a(4), q = 6 st1 (i) = i * i * i + st3 (i) = i * v(i) FORALL(i=1:4) a(i) = st1 (i) FORALL(i=1:4) a(i) = u (a(i)) - a(i)** 2 if (any (a .ne. 0)) call abort () if (i .ne. 99) call abort () + FORALL (i=1:4) a(i) = st3 (i) ! { dg-error "non-PURE function" "non-PURE reference in FORALL" { xfail *-*-*} } + FORALL (i=1:4) a(i) = v(i) ! { dg-error "non-PURE function" } contains pure integer function u (x) integer,intent(in) :: x |