From 218d4d214de099c33636ec2c1aadff4a734c0198 Mon Sep 17 00:00:00 2001
From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 5 Mar 2005 23:38:20 +0000
Subject: [PATCH] * gfortran.dg/pr19936_1.f90: New test. *
 gfortran.dg/pr19936_2.f90: New test. * gfortran.dg/pr19936_3.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95952 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/ChangeLog                 | 7 +++++++
 gcc/testsuite/gfortran.dg/pr19936_1.f90 | 5 +++++
 gcc/testsuite/gfortran.dg/pr19936_2.f90 | 5 +++++
 gcc/testsuite/gfortran.dg/pr19936_3.f90 | 5 +++++
 4 files changed, 22 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/pr19936_1.f90
 create mode 100644 gcc/testsuite/gfortran.dg/pr19936_2.f90
 create mode 100644 gcc/testsuite/gfortran.dg/pr19936_3.f90

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 190883a8533..6b3096e7b1d 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 00000000000..cd5140f21b1
--- /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 00000000000..ad43c943fec
--- /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 00000000000..6f6f8ba37a9
--- /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
-- 
2.11.4.GIT