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

re PR libfortran/23760 (gfortran incorrectly succeeds on record overflow)

Browse source 
2005-09-07  Jerry DeLisle  <jvdelisle@verizon.net>

	PR libfortran/23760
	* gfortran.dg/g77/1832.f: Remove long string in write statement
	to allow the test to pass on correct list directed output with
	prepended space.

From-SVN: r104027
This commit is contained in:
Jerry DeLisle 2005-09-08 06:52:04 +00:00 • committed by Jerry DeLisle
parent 1da2e496b2
commit 5e949d8329
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,10 @@
2005-09-07 Jerry DeLisle <jvdelisle@verizon.net>
PR libfortran/23760
* gfortran.dg/g77/1832.f: Remove long string in write statement
to allow the test to pass on correct list directed output with
prepended space.
2005-09-07 James E Wilson <wilson@specifix.com>
* gcc.dg/intmax_t-1.c: Disable for xscale*-*-elf*.

6
gcc/testsuite/gfortran.dg/g77/1832.f
View file

@ -1,9 +1,7 @@
c { dg-do run }
character*120 file
character*5 string
file = "c:/dos/adir/bdir/cdir/text.doc"
write(string, *) "a ", file
write(string, *) "a "
if (string .ne. ' a') call abort
C-- The leading space is normal for list-directed output
C-- "file" is not printed because it would overflow "string".
end