Index: sem_prag.adb =================================================================== --- sem_prag.adb (revision 202462) +++ sem_prag.adb (working copy) @@ -17958,6 +17958,10 @@ then Check_Arg_Is_Static_Expression (Last_Arg, Standard_String); Arg_Count := Arg_Count - 1; + + -- Not allowed in compiler units (bootstrap issues) + + Check_Compiler_Unit (N); end if; end;