1package Linker_Section is
2   Data1 : constant String := "12345678901234567";
3   pragma Linker_Section (Entity  => Data1,
4                          Section => ".eeprom");
5   type EEPROM_String is new String;
6   pragma Linker_Section (Entity  => EEPROM_String,
7                          Section => ".eeprom");
8   Data2 : constant EEPROM_String := "12345678901234567";
9   package Inner is end;
10   pragma Linker_Section (Entity  => Inner,        -- { dg-error "objects" }
11                          Section => ".eeprom");
12end Linker_Section;
13
14