From: Tobias Burnus <burnus@gcc.gnu.org>
Date: Fri, 18 Jul 2008 13:17:49 +0000 (+0200)
Subject: The new file gfortran.dg/array_4.f90 was missing from the commit 137910
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4b043b8de578105d61090e36662e4db18a78cdcc;p=platform%2Fupstream%2Fgcc.git

The new file gfortran.dg/array_4.f90 was missing from the commit 137910

2008-07-17  Tobias Burnus  <burnus@net-b.de>
        PR fortran/36824
        * gfortran.dg/array_4.f90: New.

From-SVN: r137949
---

diff --git a/gcc/testsuite/gfortran.dg/array_4.f90 b/gcc/testsuite/gfortran.dg/array_4.f90
new file mode 100644
index 0000000..869522a
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/array_4.f90
@@ -0,0 +1,12 @@
+! { dg-do compile }
+! PR fortran/36824
+!
+! Dimension of tgclist was not recognized as having constant bounds
+!
+program test
+implicit none
+integer, dimension( 3 ), parameter :: tgc = (/5, 6, 7 /)
+type tgccomp
+   integer, dimension( tgc( 1 ) : tgc( 2 ) ) :: tgclist
+end type tgccomp
+end program