diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-03-05 23:38:20 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-03-05 23:38:20 +0000 |
| commit | 715c9326eb3c8520ac3b458b2c582a34704d6848 (patch) | |
| tree | 73268e663fa933820b19f6f07d370d4d45245c88 | |
| parent | 87ebdf2fabc94752156aa882c6a2214d36af8c4e (diff) | |
| download | gcc-715c9326eb3c8520ac3b458b2c582a34704d6848.zip gcc-715c9326eb3c8520ac3b458b2c582a34704d6848.tar.gz gcc-715c9326eb3c8520ac3b458b2c582a34704d6848.tar.bz2 | |
pr19936_1.f90: New test.
* gfortran.dg/pr19936_1.f90: New test.
* gfortran.dg/pr19936_2.f90: New test.
* gfortran.dg/pr19936_3.f90: New test.
From-SVN: r95952
| -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 |