Negative float problem

["Luke" <lukeedw@hotmail.com>]

Hi

If I have two files:
file1:
package file1 is

	type My_Float is digits 6;

end file1;

and file2:
with file1;

procedure file2 is
	X : file1.My_Float := -1.0;
begin
	X := 1.0;
end file2;

and do gnatmake file2.adb i get the following error:
file2.adb:4:31: operator for type "My_Float" defined at file1.ads:3 is
not directly visible
file2.adb:4:31: use clause would make operation legal

There are two solutions:
1) add a use type as sugested
2) Change line 4 to: X : file1.My_Float := file1.My_Float(-1.0);

If 2 works then why doesnt the original?  The same is true for +1.0.
Is this a fault with gcc?

gcc -v gives:
Using built-in specs.
Target: i386-redhat-linux
Configured with: ../configure --prefix=/usr --mandir=/usr/share/man
--infodir=/usr/share/info --enable-shared --enable-threads=posix
--enable-checking=release --with-system-zlib --enable-__cxa_atexit
--disable-libunwind-exceptions --enable-libgcj-multifile
--enable-languages=c,c++,objc,java,f95,ada --enable-java-awt=gtk
--with-java-home=/usr/lib/jvm/java-1.4.2-gcj-1.4.2.0/jre
--host=i386-redhat-linux
Thread model: posix
gcc version 4.0.1 20050727 (Red Hat 4.0.1-5)