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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [test_time_stamp.adb] - Rev 304

Compare with Previous | Blame | View Log

--  { dg-do run }
 
with GNAT.Time_Stamp;
use  GNAT.Time_Stamp;
 
procedure test_time_stamp is
   S : constant String := Current_Time;
 
   function NN (S : String) return Boolean is
   begin
      for J in S'Range loop
         if S (J) not in '0' .. '9' then
            return True;
         end if;
      end loop;
      return False;
   end NN;
 
begin
   if S'Length /= 22
     or else S (5) /= '-'
     or else S (8) /= '-'
     or else S (11) /= ' '
     or else S (14) /= ':'
     or else S (17) /= ':'
     or else S (20) /= '.'
     or else NN (S (1 .. 4))
     or else NN (S (6 .. 7))
     or else NN (S (9 .. 10))
     or else NN (S (12 .. 13))
     or else NN (S (15 .. 16))
     or else NN (S (18 .. 19))
     or else NN (S (21 .. 22))
   then
      raise Program_Error;
   end if;
end;
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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