Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr41162.f
blob: eea3c55f6c1069a805e4bc5f060f4388326d09d1 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PRs
41154
/
41162
write
(*,
'(1PD24.15,F4.2,0P)'
)
1.0d0
write
(*,
'(1PD24.15,F4.2,0P/)'
)
1.0d0
end