New regression binary and unary expression failure tests added.
gcc/testsuite/gm2/ChangeLog: * errors/fail/binaryconst.mod * errors/fail/binarygeneric.mod * errors/fail/binarygenericconst.mod * errors/fail/unarygeneric.mod Signed-off-by: Gaius Mulley <gaius.mulley@southwales.ac.uk>
This commit is contained in:
parent
06642d296d
commit
820fb90479
7
gcc/testsuite/gm2/errors/fail/binaryconst.mod
Normal file
7
gcc/testsuite/gm2/errors/fail/binaryconst.mod
Normal file
@ -0,0 +1,7 @@
|
||||
MODULE binaryconst ;
|
||||
|
||||
VAR
|
||||
r: REAL ;
|
||||
BEGIN
|
||||
r := 1.2 + 1
|
||||
END binaryconst.
|
11
gcc/testsuite/gm2/errors/fail/binarygeneric.mod
Normal file
11
gcc/testsuite/gm2/errors/fail/binarygeneric.mod
Normal file
@ -0,0 +1,11 @@
|
||||
MODULE binarygeneric ;
|
||||
|
||||
FROM SYSTEM IMPORT WORD ;
|
||||
|
||||
VAR
|
||||
a, b, c: WORD ;
|
||||
BEGIN
|
||||
b := 1 ;
|
||||
c := 2 ;
|
||||
a := b + c
|
||||
END binarygeneric.
|
10
gcc/testsuite/gm2/errors/fail/binarygenericconst.mod
Normal file
10
gcc/testsuite/gm2/errors/fail/binarygenericconst.mod
Normal file
@ -0,0 +1,10 @@
|
||||
MODULE binarygenericconst ;
|
||||
|
||||
FROM SYSTEM IMPORT WORD ;
|
||||
|
||||
VAR
|
||||
a, b: WORD ;
|
||||
BEGIN
|
||||
b := 1 ;
|
||||
a := 1 + b
|
||||
END binarygenericconst.
|
10
gcc/testsuite/gm2/errors/fail/unarygeneric.mod
Normal file
10
gcc/testsuite/gm2/errors/fail/unarygeneric.mod
Normal file
@ -0,0 +1,10 @@
|
||||
MODULE unarygeneric ;
|
||||
|
||||
FROM SYSTEM IMPORT WORD ;
|
||||
|
||||
VAR
|
||||
a, b: WORD ;
|
||||
BEGIN
|
||||
b := 1 ;
|
||||
a := -b
|
||||
END unarygeneric.
|
Loading…
Reference in New Issue
Block a user