blob: 6f9421af45f18233a254a775b3c5e013f754c3f3 [file] [log] [blame]
-- { dg-do compile }
package Volatile1 is
C : Character;
for C'Size use 32;
pragma Volatile (C);
type R1 is record
C: Character;
pragma Volatile (C);
end record;
for R1 use record
C at 0 range 0 .. 31;
end record;
type R2 is record
C: Character;
pragma Volatile (C);
end record;
for R2 use record
C at 0 range 0 .. 10;
end record;
end Volatile1;