$title 'Test domain check/filtered when loading data from embedded code' (EMBGMS06,SEQ=930)

$onText
Contributor: Michael Bussieck, January 2023
$offText

Set       universe / i1 /
          s(universe);

$onMultiR
$onEmbeddedCode GAMS:
  set s /I2/;
$offEmbeddedCode s
$if not errorFree $abort 'No error expected'
$ifE card(s)<>0 $abort 'Expected empty s'

$onFiltered
$onEmbeddedCode GAMS:
  set s /I2/;
$offEmbeddedCode s
$if not errorFree $abort 'No error expected'
$ifE card(s)<>0 $abort 'Expected empty s'

$offFiltered
$onEmbeddedCode GAMS:
  set s /I2/;
$offEmbeddedCode s
$if errorFree $abort 'Error expected'
$clearErrors

* At execution time we always read filtered
option clear=s;
EmbeddedCode GAMS:
  set s /I2/;
endEmbeddedCode s
if (execError, abort 'No error expected');
abort$card(s) 's should be empty',s;

* This should be just empty but not cause a problem
Display s;