OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [str1.adb] - Blame information for rev 328

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
--  { dg-do compile }
2
 
3
procedure str1 is
4
   Str : constant string := "--";
5
   generic
6
   package Gen is
7
      procedure P;
8
   end Gen;
9
   package body Gen is
10
      procedure P is
11
         inner : String := Str;
12
      begin
13
         null;
14
      end;
15
   end Gen;
16
 
17
   package Inst is new Gen;
18
begin
19
   null;
20
end;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.