diff options
| author | Tristan Gingold <gingold@adacore.com> | 2015-12-21 19:52:11 +0100 |
|---|---|---|
| committer | Tristan Gingold <gingold@adacore.com> | 2015-12-21 19:52:11 +0100 |
| commit | ef5d600013b862baa196ae68cd8453ab843f6e94 (patch) | |
| tree | e8e0ce168c1f7e1da2bbb64e7cb3e0075744ceae /testsuite/gna/ticket98/junk1ok.vhd | |
| parent | 39a34058f1de6c2c80b9f39fe36890f66a111f86 (diff) | |
| download | ghdl-ef5d600013b862baa196ae68cd8453ab843f6e94.tar.gz ghdl-ef5d600013b862baa196ae68cd8453ab843f6e94.tar.bz2 ghdl-ef5d600013b862baa196ae68cd8453ab843f6e94.zip | |
Add testcase for ticket98
Diffstat (limited to 'testsuite/gna/ticket98/junk1ok.vhd')
| -rw-r--r-- | testsuite/gna/ticket98/junk1ok.vhd | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/testsuite/gna/ticket98/junk1ok.vhd b/testsuite/gna/ticket98/junk1ok.vhd new file mode 100644 index 000000000..9c286cf87 --- /dev/null +++ b/testsuite/gna/ticket98/junk1ok.vhd @@ -0,0 +1,30 @@ +package pkg_FileIO is
+ -------------------------------
+ -- Define some basic data types
+ -------------------------------
+ subtype t_BYTE is integer range 0 to 2**8 - 1;
+
+ ---------------------------------------
+ -- And arrays of those basic data types
+ ---------------------------------------
+ type arr_t_BYTE is array(natural range <>) of t_BYTE;
+
+ ----------------------------
+ -- And a pointer to an array
+ ----------------------------
+ type ptr_arr_t_BYTE is access arr_t_BYTE;
+
+ procedure Read_File(File_Name: in STRING; Data: inout ptr_arr_t_BYTE; Length: out integer);
+end pkg_FileIO;
+
+package body pkg_FileIO is
+ procedure Read_File(File_Name: in STRING; Data: inout ptr_arr_t_BYTE; Length: out integer) is
+ begin
+ Data := new arr_t_BYTE(0 to 10);
+ for i in 0 to 10 loop
+ Data(i) := 0; -- Comment this line out and GHDL is happy
+ end loop;
+ Length := 11;
+ end Read_File;
+end pkg_FileIO;
+
|