OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* tree.h: Declare make_decl_rtl_for_debug.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
fmt_f_an_p.f
1
! { dg-do run }
2
! PR38285 wrong i/o output: interaction between f and p for output
3
! Special case of kPFw.d when d = 0
4
program f_and_p
5
character(28) string
6
write(string,1) 3742. , 0.3742
7
1 format ( f14.0, 4pf14.0 )
8
if (string.ne." 3742. 3742.") call abort
9
end program f_and_p
10