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

re PR libfortran/31099 (Runtime error on legal code using RECL)

Browse Source 
2007-03-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/31099
	* gfortran.dg/unformatted_recl.f90: New test.

From-SVN: r122776
This commit is contained in:
Jerry DeLisle 2007-03-10 00:03:19 +00:00
parent 23b9463ba6
commit d66a9778e7
2 changed files with 26 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 @@
2007-03-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31099
* gfortran.dg/unformatted_recl.f90: New test.
2007-03-09 Roger Sayle <roger@eyesopen.com>
* gcc.dg/fold-eqcmplx-1.c: New test case.

21
gcc/testsuite/gfortran.dg/unformatted_recl_1.f90 Normal file
View File

@ -0,0 +1,21 @@
! { dg-do run }
! PR31099 Runtime error on legal code using RECL
program test
integer :: a, b
a=1
b=2
open(10, status="scratch", form="unformatted", recl=8)
write(10) a,b
write(10) a,b
write(10) a,b
write(10) b, a
rewind(10)
b=0
a=0
read(10) a, b
read(10) a, b
read(10) a, b
read(10) a, b
if ((a.ne.2).and.( b.ne.1)) call abort()
end program test