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

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