aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gm2/pim
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/testsuite/gm2/pim')
-rw-r--r--gcc/testsuite/gm2/pim/pass/hexstring.mod16
-rw-r--r--gcc/testsuite/gm2/pim/pass/minmaxreal.mod7
-rw-r--r--gcc/testsuite/gm2/pim/pass/minmaxreal2.mod8
-rw-r--r--gcc/testsuite/gm2/pim/pass/minmaxreal3.mod10
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.