diff options
| author | arphaman <arphaman@gmail.com> | 2013-08-08 17:45:31 +0100 |
|---|---|---|
| committer | arphaman <arphaman@gmail.com> | 2013-08-08 17:45:31 +0100 |
| commit | b1d39d5fd112b6939050464a7f12b0d5c87b24fb (patch) | |
| tree | ae05134bbb2979f6660a2e39c8539cccf0c4695c /test/Parser | |
| parent | 84a36c755c1b26b0b23930976eea36d0f9ebdeef (diff) | |
| download | flang-b1d39d5fd112b6939050464a7f12b0d5c87b24fb.tar.gz | |
improved fixed-form do parsing
Diffstat (limited to 'test/Parser')
| -rw-r--r-- | test/Parser/fixedFormDo.f | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/test/Parser/fixedFormDo.f b/test/Parser/fixedFormDo.f index f323677c32..b8f8f0978e 100644 --- a/test/Parser/fixedFormDo.f +++ b/test/Parser/fixedFormDo.f @@ -1,7 +1,7 @@ C RUN: %flang -fsyntax-only %s C RUN: %flang -fsyntax-only -ast-print %s 2>&1 | %file_check %s PROGRAM test - INTEGERDONE + INTEGERNE,DOI(10),DONE,DOWHILE DOI=1,10 ENDDO C CHECK: done = 1 @@ -10,4 +10,14 @@ C CHECK: done = (1+2) DO NE =1+2 DODONE=1,10 ENDDO + +C CHECK: dowhile = 33 + DOW H ILE=33 + DOWHILE(.true.) + ENDDO + +C CHECK: doi(1) = 1 + DOI(1) = 1 + DOI(2) = 2 + E ND PRO GRAMt e s t |