Increase timeout factor for hppa*-*-* in gcc.dg/long_branch.c
[official-gcc.git] / gcc / testsuite / gnat.dg / split_args.adb
blob3ea39dc2c04ba37a63e652d91f5dd36ad24c66c3
1 -- { dg-do run }
2 -- { dg-options "-gnatws" }
4 with System.OS_Lib; use System.OS_Lib;
6 procedure Split_Args is
7 X : constant Argument_List_Access :=
8 Argument_String_To_List (" -v");
9 begin
10 if X'Length /= 1 then
11 raise Program_Error;
12 end if;
13 end Split_Args;