OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_f0_1.f90] - Blame information for rev 708

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn 
! { dg-do run }
2 
! PR39304 write of  0.0 with F0.3 gives  **
3 
! PR47567 Small absolute values.
4 
! Test case developed from case provided by reporter.
5 
 REAL :: x
6 
 CHARACTER(80) :: str
7 
 x = 0.0
8 
 write (str,'(f0.0)') x
9 
 if (str.ne."0.") call abort
10 
 write (str,'(f0.1)') x
11 
 if (str.ne.".0") call abort
12 
 write (str,'(f0.2)') x
13 
 if (str.ne.".00") call abort
14 
 write (str,'(f0.3)') x
15 
 if (str.ne.".000") call abort
16 
 write (str,'(f0.4)') x
17 
 if (str.ne.".0000") call abort
18 
 write (str,'(F0.0)') 0.0
19 
 if (str.ne."0.") call abort
20 
 write (str,'(F0.0)') 0.001
21 
 if (str.ne."0.") call abort
22 
 write (str,'(F0.0)') 0.01
23 
 if (str.ne."0.") call abort
24 
 write (str,'(F0.0)') 0.1
25 
 if (str.ne."0.") call abort
26 
 write (str,'(F1.0)') -0.0
27 
 if (str.ne."*") call abort
28 
 write (str,'(F1.0)') 0.001
29 
 if (str.ne."*") call abort
30 
 write (str,'(F1.0)') 0.01
31 
 if (str.ne."*") call abort
32 
 write (str,'(F1.0)') 0.1
33 
 if (str.ne."*") call abort
34 
 write (str,'(F2.0)') -0.001
35 
 if (str.ne."**") call abort
36 
 write (str,'(F2.0)') -0.01
37 
 if (str.ne."**") call abort
38 
 write (str,'(F2.0)') -0.1
39 
 if (str.ne."**") call abort
40 
 write (str,'(F0.2)') 0.0
41 
 if (str.ne.".00") call abort
42 
 write (str,'(F0.0)') -0.0
43 
 if (str.ne."-0.") call abort
44 
 write (str,'(F0.1)') -0.0
45 
 if (str.ne."-.0") call abort
46 
 write (str,'(F0.2)') -0.0
47 
 if (str.ne."-.00") call abort
48 
 write (str,'(F0.3)') -0.0
49 
 if (str.ne."-.000") call abort
50 
 write (str,'(F3.0)') -0.0
51 
 if (str.ne."-0.") call abort
52 
 write (str,'(F2.0)') -0.0
53 
 if (str.ne."**") call abort
54 
 write (str,'(F1.0)') -0.0
55 
 if (str.ne."*") call abort
56 
 write (str,'(F0.1)') -0.0
57 
 if (str.ne."-.0") call abort
58 
 write (str,'(F3.1)') -0.0
59 
 if (str.ne."-.0") call abort
60 
 write (str,'(F2.1)') -0.0
61 
 if (str.ne."**") call abort
62 
 write (str,'(F1.1)') -0.0
63 
 if (str.ne."*") call abort
64 
 END

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.