URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [test_direct_io.adb] - Diff between revs 304 and 338

Rev 304	Rev 338
`-- { dg-do run }`	`-- { dg-do run }`
`with Ada.Direct_IO;`	`with Ada.Direct_IO;`

`procedure Test_Direct_IO is`	`procedure Test_Direct_IO is`

`package BDIO is new Ada.Direct_IO (Boolean);`	`package BDIO is new Ada.Direct_IO (Boolean);`
`use BDIO;`	`use BDIO;`

`FD : File_Type;`	`FD : File_Type;`

`begin`	`begin`
`Create (FD, Form => "shared=yes");`	`Create (FD, Form => "shared=yes");`
`Reset (FD);`	`Reset (FD);`
`Close (FD);`	`Close (FD);`
`end Test_Direct_IO;`	`end Test_Direct_IO;`