view gcc/testsuite/gnat.dg/normalize_pathname.adb @ 140:4e440907fcbf

copy CbC goto flang in cfgexpand remove some CbC unnecessary code
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 14 Nov 2018 00:24:45 +0900
parents 84e7813d76e9
children
line wrap: on
line source

--  { dg-do run }

with GNAT.OS_Lib;

procedure Normalize_Pathname is
   S : constant String := GNAT.OS_Lib.Normalize_Pathname
     ("/../tmp", Directory => "", Resolve_Links => True);
begin
   null;
end Normalize_Pathname;