8 lines
136 B
Ada
8 lines
136 B
Ada
|
package Volatile12 is
|
||
|
|
|
||
|
|
type Arr is array (Integer range <>) of Integer with Volatile;
|
||
|
|
|
||
|
|
procedure Proc (A : Arr);
|
||
|
|
|
||
|
|
end Volatile12;
|