diff options
| author | Duncan Sands <baldrick@free.fr> | 2007-05-02 07:43:14 +0000 |
|---|---|---|
| committer | Duncan Sands <baldrick@free.fr> | 2007-05-02 07:43:14 +0000 |
| commit | d60a18dfbc33b33ab07146641b72fbd33c25d69c (patch) | |
| tree | 9d5bd8e2cbd894ce42d6b091400629eaa90c7fdb /test/FrontendAda/unc_constructor.adb | |
| parent | 00d4bc0aa84b2658a806014fd7ec01d933c6b40a (diff) | |
Test that TREE_CONSTANT is being set correctly.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@36645 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/FrontendAda/unc_constructor.adb')
| -rw-r--r-- | test/FrontendAda/unc_constructor.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/FrontendAda/unc_constructor.adb b/test/FrontendAda/unc_constructor.adb new file mode 100644 index 0000000000..e32c04a2e0 --- /dev/null +++ b/test/FrontendAda/unc_constructor.adb @@ -0,0 +1,9 @@ +-- RUN: %llvmgcc -c %s -o /dev/null +package body Unc_Constructor is + procedure P (X : A) is + begin + if X = A0 then + null; + end if; + end; +end; |