3.6. pragma Common_Object

Syntax

pragma Common_Object
     [Internal =>] LOCAL_NAME,
  [, [External =>] EXTERNAL_SYMBOL,
  [, [Size     =>] EXTERNAL_SYMBOL]
EXTERNAL_SYMBOL ::=
  IDENTIFIER
| static_string_EXPRESSION

This pragma enables the shared use of variables stored in overlaid linker areas corresponding to the use of COMMON in Fortran. The single object local_name is assigned to the area designated by the External argument. You may define a record to correspond to a series of fields. The size argument is syntax checked in ERC32 Ada, but otherwise ignored.