-- RT_C123A4A1 : test d'appel Scilab => Ada

WITH Text_io;
USE  Text_io;

PROCEDURE RT_C123A4A1 IS

  v : Integer;
  
BEGIN

  Put_line ("Connexion etablie !");
  
  FOR i IN 1..1_000_000_000 LOOP 
    v:=1+2;
  END LOOP;

END RT_C123A4A1;