diff options
author | arphaman <arphaman@gmail.com> | 2013-08-16 16:05:39 +0100 |
---|---|---|
committer | arphaman <arphaman@gmail.com> | 2013-08-16 16:05:39 +0100 |
commit | 6aae1a84546254acb28bf6529b6a0da6c3d1aa41 (patch) | |
tree | 0ba9b1ab10957307b8692b62b3edecd27490a8a4 /test/Parser | |
parent | e8af30298bc5d4d70d7202d839d48e23b8e35723 (diff) | |
download | flang-6aae1a84546254acb28bf6529b6a0da6c3d1aa41.tar.gz |
added error for array expression with implied shape
Diffstat (limited to 'test/Parser')
-rw-r--r-- | test/Parser/array.f95 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Parser/array.f95 b/test/Parser/array.f95 index b8948fab60..dc5e5dbab0 100644 --- a/test/Parser/array.f95 +++ b/test/Parser/array.f95 @@ -15,7 +15,7 @@ PROGRAM arrtest I_ARR(4) = I_ARR(3 ! expected-error {{expected ')'}} I_ARR(4) = I_ARR( ! expected-error {{expected an expression after '('}} I_ARR(4) = I_ARR(1, ! expected-error {{expected an expression after ','}} - I_ARR2(1,1,1,1) = 3 ! expected-error@-1 {{array subscript must have 1 subscript expression}} + I_ARR2(1,1,1,1) = 3 I_ARR(4) = I_ARR( / ) ! expected-error {{expected an expression}} I_ARR2(1,1,1,2) = I_ARR2(1,1,1,1) |