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

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;