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

re PR fortran/31051 ([4.2 Only] gfortran bug with x and t format descriptors.)

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

	PR libgfortran/31051
	* gfortran.dg/fmt_t_4.f90: New

From-SVN: r122942
This commit is contained in:
Jerry DeLisle 2007-03-15 01:30:05 +00:00
parent 344bd5a861
commit 23dd73839f
2 changed files with 20 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-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31051
* gfortran.dg/fmt_t_4.f90: New
2007-03-14 Andrew Pinski <andrew_pinski@playstation.sony.com>
PR C++/31165

15
gcc/testsuite/gfortran.dg/fmt_t_3.f90 Normal file
View File

@ -0,0 +1,15 @@
! { dg-do run }
! PR31051 bug with x and t format descriptors.
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> from PR.
program t
integer, parameter :: n = 9
character(len=40) :: fmt
character(len=2), dimension(n) :: y
open(unit=10, status="scratch")
y = 'a '
fmt = '(a,1x,(t7, 3a))'
write(10, fmt) 'xxxx', (y(i), i = 1,n)
rewind(10)
read(10, '(a)') fmt
if (fmt.ne."xxxx a a a") call abort()
end program t