diff options
Diffstat (limited to 'Testing/Semantic/t1-2a.p')
-rw-r--r-- | Testing/Semantic/t1-2a.p | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/Testing/Semantic/t1-2a.p b/Testing/Semantic/t1-2a.p new file mode 100644 index 0000000..62f2d94 --- /dev/null +++ b/Testing/Semantic/t1-2a.p @@ -0,0 +1,12 @@ +(* LEGAL: local names should hide non-local names *) +program main( input, output ); + var a,b: integer; + procedure boo(a: integer); + var b: real; + begin + b := 1.23 + end; +begin + boo(b) +end. + |