diff options
| author | arphaman <arphaman@gmail.com> | 2013-09-20 15:59:20 +0100 |
|---|---|---|
| committer | arphaman <arphaman@gmail.com> | 2013-09-20 15:59:20 +0100 |
| commit | 6ba4866e1096d45a83a5d92ecac7e902b897f3e9 (patch) | |
| tree | 206c403933ef651bb3524a57e9f43ac5641a6b65 /test | |
| parent | f87f0988b80f3a886d7b93d93d6e31ecd15b8f01 (diff) | |
| download | flang-6ba4866e1096d45a83a5d92ecac7e902b897f3e9.tar.gz | |
added sema for COMMON
Diffstat (limited to 'test')
| -rw-r--r-- | test/Sema/common.f95 | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/test/Sema/common.f95 b/test/Sema/common.f95 index 00a3f4f807..ae61691290 100644 --- a/test/Sema/common.f95 +++ b/test/Sema/common.f95 @@ -27,5 +27,13 @@ end subroutine sub3 integer i common /a/i - save i ! expected-error {{}} + save i ! expected-error {{the specification statement 'save' cannot be applied to a variable in common block}} +end + +subroutine sub4 + integer i,j + common i + common /a/i,j ! expected-error {{the specification statement 'common' cannot be applied to the variable 'i' more than once}} + common j ! expected-error {{the specification statement 'common' cannot be applied to the variable 'j' more than once}} + common /b/i ! expected-error {{the specification statement 'common' cannot be applied to the variable 'i' more than once}} end |