diff options
| author | arphaman <arphaman@gmail.com> | 2013-07-25 14:53:17 +0100 |
|---|---|---|
| committer | arphaman <arphaman@gmail.com> | 2013-07-25 14:53:17 +0100 |
| commit | 05269545bea0e8500308b7dd3feea78a6478a5f7 (patch) | |
| tree | 5153c38267ef1f150be119839d7ab398fbdf73df /test/Parser | |
| parent | 330568e98e39fde36c93ab61d9fdd216e9386ebd (diff) | |
| download | flang-05269545bea0e8500308b7dd3feea78a6478a5f7.tar.gz | |
added parsing for optional ',' in a do construct
Diffstat (limited to 'test/Parser')
| -rw-r--r-- | test/Parser/do.f95 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/Parser/do.f95 b/test/Parser/do.f95 index d732f491a7..aab9c43aea 100644 --- a/test/Parser/do.f95 +++ b/test/Parser/do.f95 @@ -52,4 +52,13 @@ PROGRAM dotest DO x I = 1,2 ! expected-error {{expected '='}} END DO + DO 200,I = 1,5 +200 CONTINUE + + DO,I=1,5 + ENDDO + + DO,WHILE(.false.) + END DO + END PROGRAM |