Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/gcc/testsuite/gnat.dg/cond_expr1.adb at main - higepi/Projet_SETI_RISC-V - Forgejo: Beyond coding. We Forge.

Suppression de la possibilité de cloner des dépôts privés en HTTPS ;
Réinstallation de drone ou changement d'outil de CI ;
Possiblement migration de Gitea à Forgejo.

8 lines

177 B

Ada

Raw Permalink Blame History

 -- { dg-do compile }
 -- { dg-options "-gnat12" }
 function Cond_Expr1 (Dir : in String) return String is
 begin
    return (if Dir (Dir'Last) = '\' then Dir else Dir & '\');
 end;