Ticket #1647: t.pir

File t.pir, 278 bytes (added by grom, 12 years ago)

Test case

Line 
1.sub "main"
2    .const num DAYS_PER_YEAR = 365.24
3    $N0 = 2.96460137564761618e-03 * DAYS_PER_YEAR
4    say $N0
5
6    $N1 = DAYS_PER_YEAR * 2.96460137564761618e-03
7    say $N1
8
9    $N2 = 2.96460137564761618e-03
10    say $N2
11
12    $N3 = DAYS_PER_YEAR
13    say $N3
14.end