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/] [c_words.adb] - Blame information for rev 378

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


--  { dg-do compile }
 
package body C_Words is
 
   function New_Word (Str : String) return Word is
   begin
      return (Str'Length, Str);
   end New_Word;
 
   function New_Word (Str : String) return C_Word is
   begin
      return (Str'Length, Str);
   end New_Word;
end C_Words;

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do compile }`
2
3			`package body C_Words is`
4
5			`function New_Word (Str : String) return Word is`
6			`begin`
7			`return (Str'Length, Str);`
8			`end New_Word;`
9
10			`function New_Word (Str : String) return C_Word is`
11			`begin`
12			`return (Str'Length, Str);`
13			`end New_Word;`
14			`end C_Words;`

Browse

Tools

Subversion Repositories openrisc_me

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