diff options
Diffstat (limited to 'testsuite/gna/issue384/yy.vhdl')
-rw-r--r-- | testsuite/gna/issue384/yy.vhdl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/testsuite/gna/issue384/yy.vhdl b/testsuite/gna/issue384/yy.vhdl new file mode 100644 index 000000000..d89c6dc15 --- /dev/null +++ b/testsuite/gna/issue384/yy.vhdl @@ -0,0 +1,26 @@ +library STD; +use STD.STANDARD.all; +use STD.TextIO; + +package test is + + function IMAGE (I : Integer) return string ; + +end package test; + +package body test is + + function IMAGE(i : Integer) return string is + variable l : TextIO.line ; + variable s : string(1 to 80); + variable r : Natural; + begin + TextIO.Write(l, i) ; + r := l'length; + TextIO.Read(l,s(1 to r)); + TextIO.Deallocate(l); + return s(1 to r) ; + end IMAGE ; + +end package body test; + |