* gcc-interface/trans.c (Call_to_gnu): Robustify test for function case

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / import1.ads

package Import1 is

   type Arr is array (Positive range <>) of Integer;

   procedure Create (Bounds : Arr);

end Import1;