diff options
Diffstat (limited to 'gcc/testsuite/gm2/pim')
-rw-r--r-- | gcc/testsuite/gm2/pim/pass/hexstring.mod | 16 | ||||
-rw-r--r-- | gcc/testsuite/gm2/pim/pass/minmaxreal.mod | 7 | ||||
-rw-r--r-- | gcc/testsuite/gm2/pim/pass/minmaxreal2.mod | 8 | ||||
-rw-r--r-- | gcc/testsuite/gm2/pim/pass/minmaxreal3.mod | 10 |
4 files changed, 41 insertions, 0 deletions
diff --git a/gcc/testsuite/gm2/pim/pass/hexstring.mod b/gcc/testsuite/gm2/pim/pass/hexstring.mod new file mode 100644 index 0000000..9299282 --- /dev/null +++ b/gcc/testsuite/gm2/pim/pass/hexstring.mod @@ -0,0 +1,16 @@ +MODULE hexstring ; + +CONST + HexDigits = "0123456789ABCDEF" ; + +TYPE + ArrayType = ARRAY [0..HIGH (HexDigits)] OF CHAR ; + +CONST + HexArray = ArrayType { HexDigits } ; + +VAR + four: CHAR ; +BEGIN + four := HexArray[4] +END hexstring. diff --git a/gcc/testsuite/gm2/pim/pass/minmaxreal.mod b/gcc/testsuite/gm2/pim/pass/minmaxreal.mod new file mode 100644 index 0000000..2871f46 --- /dev/null +++ b/gcc/testsuite/gm2/pim/pass/minmaxreal.mod @@ -0,0 +1,7 @@ +MODULE minmaxreal ; + +CONST + min = MIN (REAL) ; + max = MAX (REAL) ; + +END minmaxreal. diff --git a/gcc/testsuite/gm2/pim/pass/minmaxreal2.mod b/gcc/testsuite/gm2/pim/pass/minmaxreal2.mod new file mode 100644 index 0000000..120c1b7 --- /dev/null +++ b/gcc/testsuite/gm2/pim/pass/minmaxreal2.mod @@ -0,0 +1,8 @@ +MODULE minmaxreal2 ; + +VAR + min, max: REAL ; +BEGIN + min := MIN (REAL) ; + max := MAX (REAL) +END minmaxreal2. diff --git a/gcc/testsuite/gm2/pim/pass/minmaxreal3.mod b/gcc/testsuite/gm2/pim/pass/minmaxreal3.mod new file mode 100644 index 0000000..30b5d1b --- /dev/null +++ b/gcc/testsuite/gm2/pim/pass/minmaxreal3.mod @@ -0,0 +1,10 @@ +MODULE minmaxreal3 ; + +FROM SYSTEM IMPORT REAL64 ; + +VAR + min, max: REAL64 ; +BEGIN + min := MIN (REAL64) ; + max := MAX (REAL64) +END minmaxreal3. |