From: Steven G. Kargl <kargls@comcast.net>
Date: Sat, 5 Mar 2005 23:38:20 +0000 (+0000)
Subject: pr19936_1.f90: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=715c9326eb3c8520ac3b458b2c582a34704d6848;p=gcc.git

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 190883a8533..6b3096e7b1d 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+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>
 
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