diff options
Diffstat (limited to 'gcc/testsuite')
-rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/semicolon_fixed.f | 9 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/semicolon_free.f90 | 9 |
3 files changed, 24 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 92f0427..617aef5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2006-07-01 Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> + + PR fortran/19259 + * gfortran.dg/semicolon_fixed.c: New. + * gfortran.dg/semicolon_free.c: New. + 2006-06-30 Mike Stump <mrs@apple.com> * g++.dg/ext/visibility/fvisibility-override2.C: Fix for systems diff --git a/gcc/testsuite/gfortran.dg/semicolon_fixed.f b/gcc/testsuite/gfortran.dg/semicolon_fixed.f new file mode 100644 index 0000000..2c667ae --- /dev/null +++ b/gcc/testsuite/gfortran.dg/semicolon_fixed.f @@ -0,0 +1,9 @@ +! { dg-do compile } +! PR 19259 Semicolon cannot start a line + x=1; y=1; + x=2;; + x=3; + ; ! { dg-error "Semicolon at" } + ;; ! { dg-error "Semicolon at" } + 900 ; ! { dg-error "Semicolon at" } + end diff --git a/gcc/testsuite/gfortran.dg/semicolon_free.f90 b/gcc/testsuite/gfortran.dg/semicolon_free.f90 new file mode 100644 index 0000000..28e8da2 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/semicolon_free.f90 @@ -0,0 +1,9 @@ +! { dg-do compile } +! PR 19259 Semicolon cannot start a line +x=1; y=1; +x=2;; +x=3; + ; ! { dg-error "Semicolon at" } +;; ! { dg-error "Semicolon at" } +111 ; ! { dg-error "Semicolon at" } +end |