diff options
Diffstat (limited to 'testsuite/tests/lib/Text.Printf/1548.hs')
| -rw-r--r-- | testsuite/tests/lib/Text.Printf/1548.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/lib/Text.Printf/1548.hs b/testsuite/tests/lib/Text.Printf/1548.hs new file mode 100644 index 0000000000..68cec0548f --- /dev/null +++ b/testsuite/tests/lib/Text.Printf/1548.hs @@ -0,0 +1,11 @@ +import Text.Printf + +main = do + printf "%.*f\n" (2::Int) ((1/3) :: Double) + -- (expected: "0.33") + + printf "%.3s\n" "foobar" + -- (expected: "foo") + + printf "%10.5d\n" (4::Int) + -- (expected: " 00004") |