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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 190883a..6b3096e 100644 (file)
--- 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 (file)
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 (file)
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 (file)
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