[Bug ada/23514] New: fixed point error cause Ada exception block does NOT work

2005-08-22 Thread kuan_long at hotmail dot com 
the bug should be only in windows OS


my test evnironment is win2k and win xp.
they are not work well.
I have try those compiler:
Gnat 3.15 p / mingw 3.42 / mingw 4.1


--the test code is
With Ada.Text_Io;
Procedure Trading Is
   Type Price Is Delta 0.01 Digits 18;
   Type PriceArray Is Array (Positive Range <>) Of price;
   Procedure Avg (Data : In PriceArray) Is
  Avg, Sum : Price'Base := 0.0;
   Begin
  Ada.Text_Io.Put ("average:"   );
  For Index In Data'Range Loop
 Sum := Sum + Data (Index);
  End Loop;
  Avg := Sum / Data'Length;
  Ada.Text_Io.Put (Price'Image (Avg));
  Ada.Text_Io.New_Line;
   Exception
  When Others =>
 Ada.Text_Io.Put_Line ("error here!");
   End;
Begin
   For Index In Reverse 0 .. 9 Loop
  For Step In 1 .. 3 Loop
 Declare
Mydata : Pricearray (1 .. Index) :=  (Others => 10.0);
 Begin
Avg (Mydata);
 End;
  End Loop;
   End Loop;
end Trading;
end the test code

-- 
   Summary: fixed point error cause Ada exception block does NOT
work
   Product: gcc
   Version: 4.1.0
Status: UNCONFIRMED
  Severity: critical
  Priority: P2
 Component: ada
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: kuan_long at hotmail dot com
CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23514

[Bug ada/23514] fixed point error cause Ada exception block does NOT work

2005-08-23 Thread kuan_long at hotmail dot com 

--- Additional Comments From kuan_long at hotmail dot com  2005-08-23 14:43 
---
-gnato still fail in Mingw 4.1 ,the OS is windows XP


gcc -v
Reading specs from C:/mingw/bin/../lib/gcc/mingw32/3.4.2/specs
Configured with: ../gcc/configure --with-gcc --with-gnu-ld --with-gnu-as --
host=
mingw32 --target=mingw32 --prefix=/mingw --enable-threads --disable-nls --
enable
-languages=c,c++,f77,ada,objc,java --disable-win32-registry --disable-shared --
e
nable-sjlj-exceptions --enable-libgcj --disable-java-awt --without-x --enable-
ja
va-gc=boehm --disable-libgcj-debug --enable-interpreter --enable-hash-
synchroniz
ation --enable-libstdcxx-debug
Thread model: win32
gcc version 3.4.2 (mingw-special)

-- 
   What|Removed |Added

 Status|RESOLVED|UNCONFIRMED
 Resolution|WORKSFORME  |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23514