Description

Small Model of Type : GAMS

Category : GAMS Test library

Main file : put3.gms

$title .nr=2 writes scientific - test for errors (PUT3,SEQ=36)

file temp; temp.nr=2;

putclose temp   "* from put3.gms"

/"$onDollar"
/"$ifI NOT        '*****' == '" 1.234e10: 5:3 "' $error should be        '*****'"
/"$ifI NOT       ' 1e+10' == '" 1.234e10: 6:3 "' $error should be       ' 1e+10'"
/"$ifI NOT      ' 1.e+10' == '" 1.234e10: 7:3 "' $error should be      ' 1.e+10'"
/"$ifI NOT     ' 1.2e+10' == '" 1.234e10: 8:3 "' $error should be     ' 1.2e+10'"
/"$ifI NOT    ' 1.23e+10' == '" 1.234e10: 9:3 "' $error should be    ' 1.23e+10'"
/"$ifI NOT   ' 1.234e+10' == '" 1.234e10:10:3 "' $error should be   ' 1.234e+10'"
/"$ifI NOT  '  1.234e+10' == '" 1.234e10:11:3 "' $error should be  '  1.234e+10'"
/"$ifI NOT '   1.234e+10' == '" 1.234e10:12:3 "' $error should be '   1.234e+10'"

execute "=gams temp.put lo=%GAMS.lo%"; execerror $= errorlevel;