URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
with text_io;
|
with text_io;
|
with System;
|
with System;
|
procedure addr3 is
|
procedure addr3 is
|
|
|
Type T_SAME_TYPE is new System.Address;
|
Type T_SAME_TYPE is new System.Address;
|
|
|
Type T_OTHER_TYPE is new System.Address;
|
Type T_OTHER_TYPE is new System.Address;
|
|
|
I : constant integer := 0;
|
I : constant integer := 0;
|
procedure dum ( i : INTEGER ) is
|
procedure dum ( i : INTEGER ) is
|
begin
|
begin
|
text_io.put_line ("Integer op");
|
text_io.put_line ("Integer op");
|
null;
|
null;
|
end;
|
end;
|
|
|
procedure dum ( i : system.ADDRESS ) is
|
procedure dum ( i : system.ADDRESS ) is
|
begin
|
begin
|
null;
|
null;
|
end;
|
end;
|
|
|
procedure dum ( i : T_SAME_TYPE ) is
|
procedure dum ( i : T_SAME_TYPE ) is
|
begin
|
begin
|
null;
|
null;
|
end;
|
end;
|
|
|
procedure dum ( i : T_OTHER_TYPE ) is
|
procedure dum ( i : T_OTHER_TYPE ) is
|
begin
|
begin
|
null;
|
null;
|
end;
|
end;
|
|
|
begin
|
begin
|
dum( I );
|
dum( I );
|
dum( 1 );
|
dum( 1 );
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.