diff options
author | arphaman <arphaman@gmail.com> | 2013-07-17 18:35:52 +0100 |
---|---|---|
committer | arphaman <arphaman@gmail.com> | 2013-07-17 18:35:52 +0100 |
commit | 7d65588fd3550059592b7747fde6d8f228123a4a (patch) | |
tree | 6450fa3a329180e640f68fbe59b0792c0c5ca53b /test/Parser | |
parent | 9cbc42c2174cd46f3384e9f5e6d5b19726b0abcf (diff) | |
download | flang-7d65588fd3550059592b7747fde6d8f228123a4a.tar.gz |
changed identifier info to store characters in lower case; added proper function name code gen
Diffstat (limited to 'test/Parser')
-rw-r--r-- | test/Parser/expressions.f95 | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/test/Parser/expressions.f95 b/test/Parser/expressions.f95 index dcbcd2f688..4ffafd93e3 100644 --- a/test/Parser/expressions.f95 +++ b/test/Parser/expressions.f95 @@ -1,32 +1,32 @@ ! RUN: %flang -fsyntax-only -verify < %s ! RUN: %flang -fsyntax-only -verify -ast-print %s 2>&1 | %file_check %s PROGRAM expressions - REAL X,Y,Z,W - LOGICAL L + REAL x,y,z,w + LOGICAL l X = 2.0 - Y = 1.0 + y = 1.0 Z = 2.0 W = 3.0 - X = X + Y-Z + W ! CHECK: (((X+Y)-Z)+W) - X = X+Y * Z ! CHECK: (X+(Y*Z)) - X = X * Y + Z ! CHECK: ((X*Y)+Z) - X = (X + Y) * Z ! CHECK: ((X+Y)*Z) - X = X * Y ** Z ! CHECK: (X*(Y**Z)) - X = X + Y ** Z / W ! CHECK: (X+((Y**Z)/W)) - X = X+Y ** (Z / W) ! CHECK: (X+(Y**(Z/W))) + x = x + y-z + w ! CHECK: (((x+y)-z)+w) + x = x+y * Z ! CHECK: (x+(y*z)) + x = x * y + z ! CHECK: ((x*y)+z) + x = (x + Y) * z ! CHECK: ((x+y)*z) + x = x * y ** z ! CHECK: (x*(y**z)) + x = x + y ** z / w ! CHECK: (x+((y**z)/w)) + x = x+y ** (z / w) ! CHECK: (x+(y**(z/w))) - X = (X + Y) * Z - W ! CHECK: (((X+Y)*Z)-W) - X = X + Y * -Z ! CHECK: (X+(Y*(-Z))) + x = (X + y) * z - w ! CHECK: (((x+y)*z)-w) + x = x + y * -z ! CHECK: (x+(y*(-z))) - L = X + Y .EQ. Z ! CHECK: ((X+Y)==Z) - L = X / Y .LT. Z ! CHECK: ((X/Y)<Z) - L = X - Y .GT. Z ** W ! CHECK: ((X-Y)>(Z**W)) + l = x + y .EQ. z ! CHECK: ((x+y)==z) + l = x / y .LT. z ! CHECK: ((x/y)<z) + l = x - y .GT. z ** w ! CHECK: ((x-y)>(z**w)) - X = X - X = (X) - X = (3 ! expected-error {{expected ')'}} - X = ! expected-error {{expected an expression after '='}} - X = A ! expected-error {{use of undeclared identifier 'A'}} + x = x + x = (x) + x = (3 ! expected-error {{expected ')'}} + x = ! expected-error {{expected an expression after '='}} + x = A ! expected-error {{use of undeclared identifier 'a'}} ENDPROGRAM expressions |