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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [atomic1.ads] - Blame information for rev 696

Details | Compare with Previous | View Log


-- { dg-do compile }
 
package Atomic1 is
 
  type Arr is array (Integer range <>) of Boolean;
  type UA is access all Arr;
 
  U : UA;
  pragma Atomic (U);  -- { dg-error "atomic access" }
 
  type R is record
    U : UA;
    pragma Atomic (U);  -- { dg-error "atomic access" }
  end record;
 
end Atomic1;

Line No.	Rev	Author	Line
1	696	jeremybenn	`-- { dg-do compile }`
2
3			`package Atomic1 is`
4
5			`type Arr is array (Integer range <>) of Boolean;`
6			`type UA is access all Arr;`
7
8			`U : UA;`
9			`pragma Atomic (U); -- { dg-error "atomic access" }`
10
11			`type R is record`
12			`U : UA;`
13			`pragma Atomic (U); -- { dg-error "atomic access" }`
14			`end record;`
15
16			`end Atomic1;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [atomic1.ads] - Blame information for rev 696