diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr19936_1.f90 | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr19936_2.f90 | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr19936_3.f90 | 5 |
4 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 190883a..6b3096e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,4 +1,11 @@ 2005-03-05 Steven G. Kargl <kargls@comcast.net> + + * gfortran.dg/pr19936_1.f90: New test. + * gfortran.dg/pr19936_2.f90: New test. + * gfortran.dg/pr19936_3.f90: New test. + + +2005-03-05 Steven G. Kargl <kargls@comcast.net> Paul Thomas <prthomas@drfccad.cea.fr> * PR19754_1.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/pr19936_1.f90 b/gcc/testsuite/gfortran.dg/pr19936_1.f90 new file mode 100644 index 0000000..cd5140f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr19936_1.f90 @@ -0,0 +1,5 @@ +! { dg-do compile } +program pr19936_1 + integer, parameter :: i=4 + print *,(/(i,i=1,4)/) ! { dg-error "Expected VARIABLE" } +end program pr19936_1 diff --git a/gcc/testsuite/gfortran.dg/pr19936_2.f90 b/gcc/testsuite/gfortran.dg/pr19936_2.f90 new file mode 100644 index 0000000..ad43c94 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr19936_2.f90 @@ -0,0 +1,5 @@ +! { dg-do compile } +program pr19936_2 + integer i + print *,(/(i,i=1a,4)/) ! { dg-error "Syntax error in iterator" } +end program pr19936_2 diff --git a/gcc/testsuite/gfortran.dg/pr19936_3.f90 b/gcc/testsuite/gfortran.dg/pr19936_3.f90 new file mode 100644 index 0000000..6f6f8ba --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr19936_3.f90 @@ -0,0 +1,5 @@ +! { dg-do compile } +program pr19936_3 + integer, parameter :: i = 4 + print *,(/(i,i,4)/) ! { dg-error "Syntax error in COMPLEX" } +end program pr19936_3 |