OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/947 (Data statement initialization of an array element whose index is)

Browse Source 
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
This commit is contained in:
Toon Moene 2002-02-09 22:43:29 +01:00 committed by Toon Moene
parent 23b293843e
commit 3611ccb484
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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.

12
gcc/testsuite/g77.f-torture/execute/947.f Normal file
View File

@ -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