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

re PR fortran/38285 (Wrong I/O output: Interaction between F and P for output)

Browse Source 
2008-12-04  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/38285
	gfortran.dg/fmt_f_an_p.f: New test.

From-SVN: r142456
This commit is contained in:
Jerry DeLisle 2008-12-05 04:11:28 +00:00
parent e318b7602b
commit 1388cd925a
2 changed files with 15 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 @@
2008-12-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/38285
gfortran.dg/fmt_f_an_p.f: New test.
2008-12-04 Eric Botcazou <ebotcazou@adacore.com>
* gcc.dg/union-5.c: New test.

10
gcc/testsuite/gfortran.dg/fmt_f_an_p.f Normal file
View File

@ -0,0 +1,10 @@
! { dg-do run }
! PR38285 wrong i/o output: interaction between f and p for output
! Special case of kPFw.d when d = 0
program f_and_p
character(28) string
write(string,1) 3742. , 0.3742
1 format ( f14.0, 4pf14.0 )
if (string.ne." 3742. 3742.") call abort
end program f_and_p