procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/5122 (g77 rejects accepted use of INTEGER*2 as type of DATA statement loop index)

Browse source 
2002-02-03  Toon Moene  <toon@moene.indiv.nluug.nl>

	* g77.f-torture/execute/5122.f: New test for regressions
	against PR fortran/5122.

From-SVN: r49460
This commit is contained in:
Toon Moene 2002-02-03 13:57:21 +01:00 • committed by Toon Moene
parent cb8728fd13
commit 013c7e9504
2 changed files with 13 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-03 Toon Moene <toon@moene.indiv.nluug.nl>
* g77.f-torture/execute/5122.f: New test for regressions
against PR fortran/5122.
2002-02-03 David Billinghurst <David.Billinghurst@riotinto.com>
* g77.f-torture/compile/pr3743.f: Delete

8
gcc/testsuite/g77.f-torture/execute/5122.f Normal file
View file

@ -0,0 +1,8 @@
CHARACTER*20 PARTD(6)
INTEGER*2 L
DATA (PARTD(L),L=1,6)/'A','B','C','D','E','F'/
IF ( PARTD(1) .NE. 'A' .OR. PARTD(2) .NE. 'B'
, .OR. PARTD(3) .NE. 'C' .OR. PARTD(4) .NE. 'D'
, .OR. PARTD(5) .NE. 'E' .OR. PARTD(6) .NE. 'F')
, CALL ABORT
END