gcc/ada/

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / specs / linker_section.ads

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 "type" }
                          Section => ".eeprom");
   Data2 : constant EEPROM_String := "12345678901234567";
end Linker_Section;