summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/specs/linker_section.ads
blob: 73e89aa48e10279ba838c8f3d56a2c7dde67ec32 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
package Linker_Section is
   Data1 : constant String := "12345678901234567";
   pragma Linker_Section (Entity  => Data1,
                          Section => ".eeprom");
   type EEPROM_String is new String;
   pragma Linker_Section (Entity  => EEPROM_String, -- { dg-error "objects" }
                          Section => ".eeprom");
   Data2 : constant EEPROM_String := "12345678901234567";
   package Inner is end;
   pragma Linker_Section (Entity  => Inner,        -- { dg-error "objects" }
                          Section => ".eeprom");
end Linker_Section;