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

re PR libf2c/6367 (multiple repeat counts confuse namelist read into array)

Browse source 
2002-04-19  Toon Moene  <toon@moene.indiv.nluug.nl>

	* PR6367
	* g77.f-torture/execute/6367.f: New test.
	* g77.f-torture/execute/6367.x: Disable for MMIX.

From-SVN: r52540
This commit is contained in:
Toon Moene 2002-04-19 23:52:11 +02:00 • committed by Toon Moene
parent 0f2a345797
commit d106599fbc
3 changed files with 30 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,9 @@
2002-04-19 Toon Moene <toon@moene.indiv.nluug.nl>
* PR6367
* g77.f-torture/execute/6367.f: New test.
* g77.f-torture/execute/6367.x: Disable for MMIX.
2002-04-19 Mark Mitchell <mark@codesourcery.com>
* PR6352

16
gcc/testsuite/g77.f-torture/execute/6367.f Normal file
View file

@ -0,0 +1,16 @@
program testnl
character*80 line
dimension a(10),b(10)
namelist /nl/ a
data a / 10 * 0.0 /
data b / 0., 1., 1., 1., 2., 2., 3., 3., 3., 0. /
data line /'&nl a(2) = 3*1.0, 2*2.0, 3*3.0 /'/
open(1,status='scratch')
write(1,'(a)') line
rewind(1)
read(1,nl)
close(1)
do i = 1, 10
if (a(i) .ne. b(i)) call abort
enddo
end

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

@ -0,0 +1,8 @@
# Scratch files aren't implemented for mmixware
# (_stat is a stub and files can't be deleted).
if { [istarget "mmix-knuth-mmixware"] } {
set torture_execute_xfail "mmix-knuth-mmixware"
}
return 0