Unbounded.String instead of Standard.String

[comicfanzine@gmail.com]

Hi ,

I want to use a String variable with no specific length and without a "declare" bloc .

I tried the following code which compile on Gnat 4.9 , Ubuntu 15.10 .

The problem is that at execution time , nothing happen .


with Ada.Text_IO; 
with Ada.Strings.Unbounded; 

use Ada.Text_IO; 
use Ada.Strings.Unbounded; 
 
procedure autre(var : String) is

 transform : Unbounded_String := To_Unbounded_String(Source => var) 
   
    
 begin
	get(transform);
end autre;