gcc/testsuite/gnat.dg/specs/linker_section.ads

   1 package 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, -- { dg-error "objects" }
   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");
  12 end Linker_Section;
  13