diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-02-09 22:43:29 +0100 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2002-02-09 21:43:29 +0000 |
| commit | 3611ccb484812b9fbe009d5127b055b10f139caf (patch) | |
| tree | d8bb891a9a3587cab9dd69b4a5ac589c853e8b52 | |
| parent | 23b293843e50bb93065d802c2812f94776a36e84 (diff) | |
| download | gcc-3611ccb484812b9fbe009d5127b055b10f139caf.zip gcc-3611ccb484812b9fbe009d5127b055b10f139caf.tar.gz gcc-3611ccb484812b9fbe009d5127b055b10f139caf.tar.bz2 | |
re PR fortran/947 (Data statement initialization of an array element whose index is)
2002-02-09 Toon Moene <toon@moene.indiv.nluug.nl>
* g77.f-torture/execute/947.f: New regression test
for PR fortran/947.
From-SVN: r49647
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/947.f | 12 |
2 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 87ba254..8754a13 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2002-02-09 Toon Moene <toon@moene.indiv.nluug.nl> + + * g77.f-torture/execute/947.f: New regression test + for PR fortran/947. + 2002-02-09 Alexandre Oliva <aoliva@redhat.com> * g++.old-deja/g++.abi/ptrmem.C: Lowest bit is significant on SH5. diff --git a/gcc/testsuite/g77.f-torture/execute/947.f b/gcc/testsuite/g77.f-torture/execute/947.f new file mode 100644 index 0000000..7efa204 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/947.f @@ -0,0 +1,12 @@ + DIMENSION A(-5:5) + INTEGER*1 IM5, IZ, IP5 + INTEGER*2 IM1, IP1 + PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5) + DATA A(IM5) /-5./, A(IM1) /-1./ + DATA A(IZ) /0./ + DATA A(IP5) /+5./, A(IP1) /+1./ + IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR. + , A(IZ) .NE. 0. .OR. + , A(IP5) .NE. +5. .OR. A(IP1) .NE. +1. ) + , CALL ABORT + END |