/test/language/unclassified/pr1/a.e

http://github.com/tybor/Liberty · Specman e · 22 lines · 16 code · 5 blank · 1 comment · 0 complexity · 7af77ba5cd59ca4372520790718b13ec MD5 · raw file

  1. class A
  2. inherit
  3. ANY
  4. redefine default_create
  5. end
  6. feature {ANY}
  7. default_create
  8. do
  9. label := "foo"
  10. end
  11. foo
  12. do
  13. print(label)
  14. -- print_run_time_stack
  15. end
  16. label: STRING
  17. end