From 6ba4866e1096d45a83a5d92ecac7e902b897f3e9 Mon Sep 17 00:00:00 2001 From: arphaman Date: Fri, 20 Sep 2013 15:59:20 +0100 Subject: added sema for COMMON --- test/Sema/common.f95 | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'test') 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 -- cgit v1.2.1