diff options
| author | Daniel Kraft <d@domob.eu> | 2008-09-07 11:11:53 +0200 |
|---|---|---|
| committer | Daniel Kraft <domob@gcc.gnu.org> | 2008-09-07 11:11:53 +0200 |
| commit | fe2c39c8c2e0aef6b043282442edf9e7f3cf4896 (patch) | |
| tree | 91c9eb5e536a462f4482bed648a6bc49854fd7e3 /gcc | |
| parent | cc54af2085468f38cb4ce0b7f8a644a17ac9dd20 (diff) | |
| download | gcc-fe2c39c8c2e0aef6b043282442edf9e7f3cf4896.zip gcc-fe2c39c8c2e0aef6b043282442edf9e7f3cf4896.tar.gz gcc-fe2c39c8c2e0aef6b043282442edf9e7f3cf4896.tar.bz2 | |
stfunc_6.f90: Extended testcase to include more tests related to PURE and statement functions.
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.
From-SVN: r140084
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 0ba477c..7d83cbb 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 2ad791d..c565783 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 |