procedure P is
   task T is
     entry E;
   end T;

   task body T is
   begin
      select
	 E;
      or
	 delay until 1.0;       -- ERROR: 1.0 not value of calendar.time
      end select;
   end T;

begin
   null;
end P;

gnatmake p
gcc -c p.adb
+===========================GNAT BUG DETECTED==============================+
| 3.4.0 (Debian) (i486-pc-linux-gnu) Assert_Failure exp_ch9.adb:7477       |
| Error detected at test_243812.adb:8:7                                    |
| Please submit a bug report; see http://gcc.gnu.org/bugs.html.            |
| Include the entire contents of this bug box in the report.               |
| Include the exact gcc-3.4 or gnatmake command that you entered.          |
| Also include sources listed below in gnatchop format                     |
| (concatenated together with no headers between files).                   |
+==========================================================================+