diff options
| author | H.J. Lu <hongjiu.lu@intel.com> | 2010-07-23 19:37:40 +0000 |
|---|---|---|
| committer | H.J. Lu <hongjiu.lu@intel.com> | 2010-07-23 19:37:40 +0000 |
| commit | e59b0ef2e7a1fb44791d473ee416aeb01fcb169c (patch) | |
| tree | 437dca120093cc7b1f6debf6f6b31779526c7192 /gcc/testsuite/gnat.dg/cond_expr1.adb | |
| parent | f25b023a0d9de6a6c1e1965d93ba6028cb03fc7d (diff) | |
| parent | 92ac755201aad4366eaff2b75b3239637bee3590 (diff) | |
Merged with trunk at revision 162480.ifunc
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/ifunc@162483 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gnat.dg/cond_expr1.adb')
| -rw-r--r-- | gcc/testsuite/gnat.dg/cond_expr1.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/cond_expr1.adb b/gcc/testsuite/gnat.dg/cond_expr1.adb new file mode 100644 index 00000000000..e1a87a36ab5 --- /dev/null +++ b/gcc/testsuite/gnat.dg/cond_expr1.adb @@ -0,0 +1,7 @@ +-- { 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; |