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