$ write sys$output "Starting regression test at ", F$CVTIME("absolute",,)
$ a=1
$ if a.eq.0 then write sys$output "form 1 IF failed"
$ if a.eq.1
$ then
$ else write sys$output "form 2 IF failed"
$ endif
$ if a.eq.1
$ then 
$	if a.eq.0 then write sys$output "form 2, nested form 1 IF failed"
$	if a.eq.1
$	then
$	else write sys$output "nested form 2 IF failed"
$	endif
$ else
$	write sys$output "form 2 IF failed"
$	if a.eq.1 then write sys$output "form 2 ELSE failed"
$	if a.eq.1
$	then write sys$output "form 2 ELSE failed"
$	else write sys$output "form 2 ELSE failed"
$	endif
$ endif
$ a==7
$ if a.ne.1 then write sys$output "Setting global failed"
$ if -1*3 .ne. -3 then write sys$output "expression of -1*3 failed"
$ if 2*-3 .ne. -6 then write sys$output "expression of 2*-3 failed"
$ if -%XFF .ne. -255 then write sys$output "expression of -%XFF failed"
$ if %XA .ne. 10 then write sys$output "expression of %XA failed"
$ if f$edit("a","upcase") .nes. "A" then write sys$output "expression of f$edit('a','upcase') failed"
$ if 1 .ne. 1 then write sys$output "expression of 1 failed"
$ if 1+1 .ne. 2 then write sys$output "expression of 1+1 failed"
$ if 2*2 .ne. 4 then write sys$output "expression of 2*2 failed"
$ if 6/2 .ne. 3 then write sys$output "expression of 6/2 failed"
$ if 5-1 .ne. 4 then write sys$output "expression of 5-1 failed"
$ if -3+1 .ne. -2 then write sys$output "expression of -3+1 failed"
$ if +1 .ne. 1 then write sys$output "expression of +1 failed"
$ if 1+2*3 .ne. 7 then write sys$output "expression of 1+2*3 failed"
$ if (1+2)*3 .ne. 9 then write sys$output "expression of (1+2)*3 failed"
$ if 3*(1+2) .ne. 9 then write sys$output "expression of 3*(1+2) failed"
$ if 1.eq.3 then write sys$output "expression of 1.eq.3 failed"
$ if 3.ne.3 then write sys$output "expression of 3.ne.3 failed"
$ if 1.ge.3 then write sys$output "expression of 1.ge.3 failed"
$ if 1.gt.3 then write sys$output "expression of 1.gt.3 failed"
$ if 3.le.1 then write sys$output "expression of 3.le.1 failed"
$ if 3.lt.1 then write sys$output "expression of 3.lt.1 failed"
$ if .not.1 then write sys$output "expression of .not.1 failed"
$ b=.not.0
$ if b.eq.0 then write sys$output "expression of .not.0 failed"
$ b=0.and.1
$ if b.ne.0 then write sys$output "expression of 0.and.1 failed"
$ b=1.and.1
$ if b.ne.1 then write sys$output "expression of 1.and.1 failed"
$ b=0.or.1
$ if b.ne.1 then write sys$output "expression of 0.or.1 failed"
$ b=0.or.0
$ if b.ne.0 then write sys$output "expression of 0.or.0 failed"
$ if "Test".nes."Test" then write sys$output "expression of 'Test'.nes.'Test' failed"
$ if "Test".eqs."West" then write sys$output "expression of 'Test'.eqs.'West' failed"
$ if "Test".ges."West" then write sys$output "expression of 'Test'.ges.'West' failed"
$ if "West".les."Test" then write sys$output "expression of 'West'.les.'Test' failed"
$ if "West".lts."Test" then write sys$output "expression of 'West'.lts.'Test' failed"
$ if "Test".gts."West" then write sys$output "expression of 'Test'.gts.'West' failed"
$ b="West".gts."Test"
$ if -b.ne.-1 then write sys$output "expression of -b.ne.-1 failed"
$ if f$message(8).nes."%UOS-E-MISNAM, Missing name" then write sys$output "f$message(8) failed"
$ if f$message(0).nes."%NONAME-W-NOMSG, Message number 0" then write sys$output "f$message(0) failed"
$ if f$message(8,"severity").nes."%E" then write sys$output "f$message(8,'severity') failed"
$ if f$message(8,"ident").nes."%MISNAM" then write sys$output "f$message(8,'ident') failed"
$ if f$message(8,"text").nes."Missing name" then write sys$output "f$message(8,'text') failed"
$ if f$message(8,"facility").nes."%UOS" then write sys$output "f$message(8,'facility') failed"
$ if f$verify(1).nes."0" then write sys$output "f$verify(1) failed"
$ if f$verify(1).nes."1" then write sys$output "f$verify(1) failed"
$ if f$verify(0).nes."1" then write sys$output "f$verify(0) failed"
$ if f$verify(0).nes."0" then write sys$output "f$verify(0) failed"
$ if f$type(12).nes."INTEGER" then write sys$output "f$type(12) failed"
$ if f$type("12").nes."INTEGER" then write sys$output "f$type('12') failed"
$ if f$type("A").nes."STRING" then write sys$output "f$type('A') failed"
$ if f$trnlnm("z").nes."" then write sys$output "f$trnlnm('z') failed"
$ if f$string(1+3).ne.4 then write sys$output "f$string(1+3) failed"
$ a=4
$ if f$trnlnm("a").nes."4" then write sys$output "f$trnlnm('a') failed"
$ if f$trnlnm("a","LNM$PROCESS","USER").nes."4" then write sys$output "f$trnlnm('a','LNM$PROCESS','USER') failed"
$ if f$trnlnm("a","","","",,"ACCESS_MODE").nes."USER" then write sys$output "f$trnlnm('a','','','',,'ACCESS_MODE') failed"
$ if f$trnlnm("a","","","",,"MAX_INDEX").ne.0 then write sys$output "f$trnlnm('a','','','',,'MAX_INDEX') failed"
$ if f$trnlnm("a","","","",,"TABLE_NAME").nes."LNM$UCL$0" then write sys$output "f$trnlnm('a','','','',,'TABLE_NAME') failed"
$ if f$trnlnm("a","","","",,"NAME").nes."A" then write sys$output "f$trnlnm('a','','','',,'NAME') failed"
$ if f$string(1+3).ne.4 then write sys$output "f$string(1+3) failed"
$ if f$setprv("nosetprv,tmpmbx").nes."SETPRV,TMPMBX" then write sys$output "f$setprv('nosetprv,tmpmbx') failed"
$ if f$setprv("setprv,tmpmbx").nes."NOSETPRV,TMPMBX" then write sys$output "f$setprv('setprv,tmpmbx') failed"
$ if f$privilege("TMPMBX").nes."TRUE" then write sys$output "f$privilege('TMPMBX') failed"
$ if f$privilege("NOTMPMBX").nes."FALSE" then write sys$output "f$privilege('NOTMPMBX') failed"
$ if f$mode().nes."INTERACTIVE" then write sys$output "f$mode() failed"
$ if f$parse("Z::A:\B\C.D;1","","","","").nes."" then write sys$output "f$parse('Z::A:\B\C.D;1','','','','') failed"
$ if f$parse("Z::A:\B\C.D;1","","","","syntax_only").nes."Z::A:\B\C.D;1" then write sys$output "f$parse('Z::A:\B\C.D;1','','','','syntax_only').nes.'Z::A:\B\C.D;1' failed"
$ if f$parse("Z::A:\B\C.D;1","","","node","").nes."Z::" then write sys$output "f$parse('Z::A:\B\C.D;1','','','node','') failed"
$ if f$parse("Z::A:\B\C.D;1","","","device","").nes."A:" then write sys$output "f$parse('Z::A:\B\C.D;1','','','device','') failed"
$ if f$parse("Z::A:\B\C.D;1","","","directory","").nes."\B\" then write sys$output "f$parse('Z::A:\B\C.D;1','','','directory','') failed"
$ if f$parse("Z::A:\B\C.D;1","","","name","").nes."C" then write sys$output "f$parse('Z::A:\B\C.D;1','','','name','') failed"
$ if f$parse("Z::A:\B\C.D;1","","","type","").nes.".D" then write sys$output "f$parse('Z::A:\B\C.D;1','','','type','') failed"
$ if f$parse("Z::A:\B\C.D;1","","","version","").nes.";1" then write sys$output "f$parse('Z::A:\B\C.D;1','','','version','') failed"
$ if f$parse("Z::A:\B\C.D","","","version","").nes."" then write sys$output "f$parse('Z::A:\B\C.D','','','version','') failed"
$ if f$parse("Z::A:\B\C.D;A","","","version","").nes."" then write sys$output "f$parse('Z::A:\B\C.D;A','','','version','') failed"
$ if f$parse("Z::A:\B\C.D;A","","","type","").nes.".D;A" then write sys$output "f$parse('Z::A:\B\C.D;A','','','type','') failed"
$ if f$match_wild("ABCDE","*BC*").nes."TRUE" then write sys$output "f$match_wild('ABCDE','*BC*') failed"
$ if f$match_wild("ABCDE","*").nes."TRUE" then write sys$output "f$match_wild('ABCDE','*') failed"
$ if f$match_wild("ABCDE","F").nes."FALSE" then write sys$output "f$match_wild('ABCDE','F') failed"
$ if f$locate("2","12345").nes."1" then write sys$output "f$locate('2','12345') failed"
$ if f$locate("1","12345").nes."0" then write sys$output "f$locate('1','12345') failed"
$ if f$locate("A","12345").nes."5" then write sys$output "f$locate('A','12345') failed"
$ if f$locate("5","12345").nes."4" then write sys$output "f$locate('5','12345') failed"
$ if f$locate("1","").nes."0" then write sys$output "f$locate('1','') failed"
$ if f$length("Hello").nes."5" then write sys$output "f$length('Hello') failed"
$ if f$length("").nes."0" then write sys$output "f$length('') failed"
$ if f$integer("1").nes."1" then write sys$output "f$integer('1') failed"
$ if f$integer("1"+3).nes."4" then write sys$output "f$integer('1'+3) failed"
$ if f$getsyi("version").nes." 0.0" then write sys$output "f$getsyi('version') failed"
$ if f$getjpi("","astlm").ne.0 then write sys$output "f$getjpi('','astlm') failed"
$ if f$getjpi("","jobtype").ne.3 then write sys$output "f$getjpi('','jobtype') failed"
$ if f$getjpi("","mode").ne.6 then write sys$output "f$getjpi('','mode') failed"
$ if f$getjpi("","owner").ne.0 then write sys$output "f$getjpi(','owner') failed"
$ if f$getjpi("","pid").ne.1 then write sys$output "f$getjpi('','pid') failed"
$ if f$getjpi("","tt_phydevnam").nes."TERMA0" then write sys$output "f$getjpi('','tt_phydevnam') failed"
$ if f$getjpi("","uic").ne.1 then write sys$output "f$getjpi('','uic') failed"
$ if f$getdvi("_diska0:","accesstimes_recorded").nes."TRUE" then write sys$output "f$getdvi('_diska0:','accesstimes_recorded') failed"
$ if f$getdvi("_diska0:","avl").nes."TRUE" then write sys$output "f$getdvi('_diska0:','avl') failed"
$ if f$getdvi("_diska0:","ccl").nes."FALSE" then write sys$output "f$getdvi('_diska0:','ccl') failed"
$ if f$getdvi("_terma0:","ccl").nes."TRUE" then write sys$output "f$getdvi('_terma0:','ccl') failed"
$ if f$getdvi("_diska0:","cluster").ne.512 then write sys$output "f$getdvi('_diska0:','cluster') failed"
$ if f$getdvi("_diska0:","devbufsiz").ne.512 then write sys$output "f$getdvi('_diska0:','devbufsiz') failed"
$ if f$getdvi("_diska0:","dir").nes."TRUE" then write sys$output "f$getdvi('_diska0:','dir') failed"
$ if f$getdvi("_terma0:","dir").nes."FALSE" then write sys$output "f$getdvi('_terma0:','dir') failed"
$ if f$getdvi("_diska0:","fulldevnam").nes."_DISKA0:" then write sys$output "f$getdvi('_diska0:','fulldevnam') failed"
$ if f$getdvi("_terma0:","idv").nes."TRUE" then write sys$output "f$getdvi('_terma0:','idv') failed"
$ if f$getdvi("_diska0:","rnd").nes."TRUE" then write sys$output "f$getdvi('_diska0:','rnd') failed"
$ if f$getdvi("_terma0:","rnd").nes."FALSE" then write sys$output "f$getdvi('_terma0:','rnd') failed"
$ if f$getdvi("_diska0:","sts").ne.16384 then write sys$output "f$getdvi('_diska0:','sts') failed"
$ if f$getdvi("_diska0:","unit").ne.0 then write sys$output "f$getdvi('_diska0:','unit') failed"
$ if f$getdvi("_diska0:","exists").nes."TRUE" then write sys$output "f$getdvi('_diska0:','exists') failed"
$ if f$getdvi("_moooa0:","exists").nes."FALSE" then write sys$output "if f$getdvi('_moooa0:','exists') failed"
$ if f$environment("interactive").eqs."TRUE" then write sys$output "f$environment('interactive') failed"
$ !
$ ! The following are specific to the simulator, running on the system console for user Startup...
$ ! No symbols should be defined and no defaults should be altered for the terminal or the user or the process...
$ !
$ if f$getdvi("_terma0:","tt_page").ne.66 then write sys$output "f$getdvi('_terma0:','tt_page') failed"
$ if f$getsyi("active_cpu_mask").nes."1" then write sys$output "f$getsyi('active_cpu_mask') failed"
$ if f$getsyi("arch_name").nes."Sim" then write sys$output "f$getsyi('arch_name') failed"
$ if f$getsyi("arch_type").ne."0" then write sys$output "f$getsyi('arch_type') failed"
$ if f$getsyi("max_cpus").ne."1" then write sys$output "f$getsyi('max_cpus') failed"
$ if f$getsyi("page_size").nes."4096" then write sys$output "f$getsyi('page_size') failed"
$ if f$getjpi("","terminal").nes."TERMA0" then write sys$output "f$getjpi('','terminal') failed"
$ if f$process().nes."Startup" then write sys$output "f$process() failed"
$ if f$file_attributes("_DISKA0:\uos\uos\ucl.exe","ctg").nes."FALSE" then write sys$output "f$file_attributes('_DISKA0:\uos\uos\ucl.exe','ctg') failed"
$ if f$file_attributes("_DISKA0:\uos\uos\ucl.exe","eof").eq.0 then write sys$output "f$file_attributes('_DISKA0:\uos\uos\ucl.exe','eof') failed"
$ if f$file_attributes("_DISKA0:\uos\uos\ucl.exe","dvi").nes."_DISKA0" then write sys$output "f$file_attributes('_DISKA0:\uos\uos\ucl.exe','dvi') failed"
$ if f$getsyi("boottime").eqs."" then write sys$output "f$getsyi('boottime') failed"
$ if f$getsyi("memsize").lt.65535 then write sys$output "f$getsyi('memsize') failed"
$ if f$getsyi("memsize").gt.65536 then write sys$output "f$getsyi('memsize') failed"
$ if f$getjpi("","account").nes."Startup" then write sys$output "f$getjpi('','account') failed"
$ if f$getjpi("","username").nes."Startup" then write sys$output "f$getjpi('','username') failed"
$ if f$getdvi("_diska0:","maxblock").ne.102399 then write sys$output "f$getdvi('_diska0:','maxblock') failed"
$ if f$user().nes."Startup" then write sys$output "f$user().nes.'Startup' failed"
$ write sys$output "Finished at ", F$CVTIME("absolute",,)