diff options
author | Jeffrey Overbey | 2010-07-16 23:50:05 +0000 |
---|---|---|
committer | Jeffrey Overbey | 2010-07-16 23:50:05 +0000 |
commit | 215b63f5c59bd0e8c8959a90807d1a93e10a87ab (patch) | |
tree | 88ec4fe33b84c71ef0a3c7108c0a1efb6db840ab /org.eclipse.photran.core.vpg.tests | |
parent | a3da017ec3a59077649fe2fbdf614c4a32c81a5b (diff) | |
download | org.eclipse.photran-215b63f5c59bd0e8c8959a90807d1a93e10a87ab.tar.gz org.eclipse.photran-215b63f5c59bd0e8c8959a90807d1a93e10a87ab.tar.xz org.eclipse.photran-215b63f5c59bd0e8c8959a90807d1a93e10a87ab.zip |
Fixed Bug 320148 (Comment 1)
Diffstat (limited to 'org.eclipse.photran.core.vpg.tests')
-rw-r--r-- | org.eclipse.photran.core.vpg.tests/parser-test-code/reg_tests/bug320148.f | 26 | ||||
-rw-r--r-- | org.eclipse.photran.core.vpg.tests/parser-test-code/reg_tests/bug320148.f90 | 26 |
2 files changed, 52 insertions, 0 deletions
diff --git a/org.eclipse.photran.core.vpg.tests/parser-test-code/reg_tests/bug320148.f b/org.eclipse.photran.core.vpg.tests/parser-test-code/reg_tests/bug320148.f new file mode 100644 index 00000000..6108a2cb --- /dev/null +++ b/org.eclipse.photran.core.vpg.tests/parser-test-code/reg_tests/bug320148.f @@ -0,0 +1,26 @@ + complex*16 H(ldh,m), wsp(lwsp) + + double precision jj + double complex complex + double complex*16 j2 + + doubleprecision kk + doublecomplex doublecomplex + doublecomplex*16 k2 + + double complex :: n + + complex l + complex :: m + + integer a /3/ + integer b /4/, c /6/ + + goto 10 + 10 assign 30 to next + + do 300 h=1,2 + print *, "!" + end do + + end diff --git a/org.eclipse.photran.core.vpg.tests/parser-test-code/reg_tests/bug320148.f90 b/org.eclipse.photran.core.vpg.tests/parser-test-code/reg_tests/bug320148.f90 new file mode 100644 index 00000000..6108a2cb --- /dev/null +++ b/org.eclipse.photran.core.vpg.tests/parser-test-code/reg_tests/bug320148.f90 @@ -0,0 +1,26 @@ + complex*16 H(ldh,m), wsp(lwsp) + + double precision jj + double complex complex + double complex*16 j2 + + doubleprecision kk + doublecomplex doublecomplex + doublecomplex*16 k2 + + double complex :: n + + complex l + complex :: m + + integer a /3/ + integer b /4/, c /6/ + + goto 10 + 10 assign 30 to next + + do 300 h=1,2 + print *, "!" + end do + + end |