[dragonegg] r182103 - Tests that we don't crash belong in the compilator testsuite.

[Duncan Sands]

Author: baldrick
Date: Fri May 17 10:00:24 2013
New Revision: 182103

URL: http://llvm.org/viewvc/llvm-project?rev=182103&view=rev
Log:
Tests that we don't crash belong in the compilator testsuite.

Added:
    dragonegg/trunk/test/compilator/local/ada/bitfield.adb
      - copied, changed from r182095, dragonegg/trunk/test/validator/ada/bitfield.adb
    dragonegg/trunk/test/compilator/local/ada/bitfield.ads
      - copied, changed from r182095, dragonegg/trunk/test/validator/ada/bitfield.ads
Removed:
    dragonegg/trunk/test/validator/ada/bitfield.adb
    dragonegg/trunk/test/validator/ada/bitfield.ads

Copied: dragonegg/trunk/test/compilator/local/ada/bitfield.adb (from r182095, dragonegg/trunk/test/validator/ada/bitfield.adb)
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/bitfield.adb?p2=dragonegg/trunk/test/compilator/local/ada/bitfield.adb&p1=dragonegg/trunk/test/validator/ada/bitfield.adb&r1=182095&r2=182103&rev=182103&view=diff
==============================================================================
--- dragonegg/trunk/test/validator/ada/bitfield.adb (original)
+++ dragonegg/trunk/test/compilator/local/ada/bitfield.adb Fri May 17 10:00:24 2013
@@ -1,4 +1,3 @@
--- RUN: %dragonegg -S %s
 package body Bitfield is
    function R (X : T) return Boolean is
    begin

Copied: dragonegg/trunk/test/compilator/local/ada/bitfield.ads (from r182095, dragonegg/trunk/test/validator/ada/bitfield.ads)
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/bitfield.ads?p2=dragonegg/trunk/test/compilator/local/ada/bitfield.ads&p1=dragonegg/trunk/test/validator/ada/bitfield.ads&r1=182095&r2=182103&rev=182103&view=diff
==============================================================================
--- dragonegg/trunk/test/validator/ada/bitfield.ads (original)
+++ dragonegg/trunk/test/compilator/local/ada/bitfield.ads Fri May 17 10:00:24 2013
@@ -1,4 +1,3 @@
--- RUN: true
 package Bitfield is
    -- Read and write of a non-integer scalar bitfield.
    type T is record

Removed: dragonegg/trunk/test/validator/ada/bitfield.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/validator/ada/bitfield.adb?rev=182102&view=auto
==============================================================================
--- dragonegg/trunk/test/validator/ada/bitfield.adb (original)
+++ dragonegg/trunk/test/validator/ada/bitfield.adb (removed)
@@ -1,19 +0,0 @@
--- RUN: %dragonegg -S %s
-package body Bitfield is
-   function R (X : T) return Boolean is
-   begin
-      return X.B;
-   end;
-   function R (X : T) return Float is
-   begin
-      return X.F;
-   end;
-   procedure W (X : in out T; B : Boolean) is
-   begin
-      X.B := B;
-   end;
-   procedure W (X : in out T; F : Float) is
-   begin
-      X.F := F;
-   end;
-end;

Removed: dragonegg/trunk/test/validator/ada/bitfield.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/validator/ada/bitfield.ads?rev=182102&view=auto
==============================================================================
--- dragonegg/trunk/test/validator/ada/bitfield.ads (original)
+++ dragonegg/trunk/test/validator/ada/bitfield.ads (removed)
@@ -1,16 +0,0 @@
--- RUN: true
-package Bitfield is
-   -- Read and write of a non-integer scalar bitfield.
-   type T is record
-      B : Boolean;
-      F : Float;
-   end record;
-   for T use record
-     B at 0 range 1 .. 1;
-     F at 0 range 2 .. 33;
-   end record;
-   function R (X : T) return Boolean;
-   function R (X : T) return Float;
-   procedure W (X : in out T; B : Boolean);
-   procedure W (X : in out T; F : Float);
-end;