stacko.chpl

module SomeAnimals {

  class Animal {
    var animalType: string;
  }

  class Bird: Animal {
    proc init(aType: string) {
      this.animalType = aType;
    }

    proc fly() {
      writeln("flying..");
    }
  }

  class Fish: Animal {
    proc init(aType: string) {
      this.animalType = aType;
    }

    proc swim() {
      writeln("swimming..");
    }
  }



} // module SomeAnimals


proc main() {

  use SomeAnimals;


  const fish: Animal = new Fish("fishtype");
  const bird: Animal = new Bird("birdtype");

  const animals = [fish, bird];

  for animal in animals {
    select animal.animalType {
        when "fishtype" do (animal:Fish).swim();
        when "birdtype" do (animal:Bird).fly();
      }
  }

} // proc main