diff options
author | arphaman <arphaman@gmail.com> | 2013-08-06 17:08:36 +0100 |
---|---|---|
committer | arphaman <arphaman@gmail.com> | 2013-08-06 17:08:36 +0100 |
commit | 971ff6b9cffc526ee3cbdc18f0c7b8fec4ebb603 (patch) | |
tree | 9e8dd4bc5a05cf4b5221a5252de7302ae8ddcc4e /test/Parser | |
parent | 5b1f9813d5b9de88ddb7d55897dfb07a5b70da55 (diff) | |
download | flang-971ff6b9cffc526ee3cbdc18f0c7b8fec4ebb603.tar.gz |
added check for next case or end select stmt after select case
Diffstat (limited to 'test/Parser')
-rw-r--r-- | test/Parser/selectcase.f95 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/Parser/selectcase.f95 b/test/Parser/selectcase.f95 index ee31ce4c1f..2fa8b0ba7b 100644 --- a/test/Parser/selectcase.f95 +++ b/test/Parser/selectcase.f95 @@ -30,4 +30,15 @@ PROGRAM selecttest CASE () ! expected-error {{expected an expression}} END SELECT + SELECT CASE(1) + I = 0 ! expected-error {{expected 'case' or 'end select' statement after 'select case' statement}} + I = 1 + END SELECT + + SELECT CASE(1) + SELECT CASE(2) ! expected-error {{expected 'case' or 'end select' statement after 'select case' statement}} + END SELECT + I = 1 + END SELECT + END |