diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-09 19:21:18 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-09 19:21:18 +0000 |
| commit | 45cb67c919f95074341164e3a2e350732e78d373 (patch) | |
| tree | 7ce00b243f903b7dbfb65abea5f7d07041368f2a /gcc/testsuite/gfortran.dg/stfunc_6.f90 | |
| parent | 534783cff20b859b0a7edcab38eca01f0d0e1993 (diff) | |
| download | gcc-45cb67c919f95074341164e3a2e350732e78d373.tar.gz | |
2008-09-08 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r140164
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@140169 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/stfunc_6.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/stfunc_6.f90 | 3 |
1 files changed, 3 insertions, 0 deletions
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 |