# -*- perl -*-
#
# Test aliases

Attributes {
    var1 {
        Int32 x 14;
	Int32 y 15, 16, 17;
	component1 {
	    Float64 g 6.02e23;
	    String name "A part of the whole";
	}
    }
    # This should fail since var1.comp does not exist.
    alias var2 var1.comp;
}