From b4a5df67f1382a33f4535eb1b10600ca52d294d3 Mon Sep 17 00:00:00 2001
From: Lorry <lorry@roadtrain.codethink.co.uk>
Date: Mon, 9 Jan 2012 13:47:42 +0000
Subject: Tarball conversion

---
 gcc/testsuite/gfortran.dg/array_constructor_20.f90 | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/array_constructor_20.f90

(limited to 'gcc/testsuite/gfortran.dg/array_constructor_20.f90')

diff --git a/gcc/testsuite/gfortran.dg/array_constructor_20.f90 b/gcc/testsuite/gfortran.dg/array_constructor_20.f90
new file mode 100644
index 0000000000..de7246d205
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/array_constructor_20.f90
@@ -0,0 +1,22 @@
+! { dg-do compile }
+!
+! PR fortran/34784, in which the intrinsic expression would be
+! given the implicit type.
+!
+! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
+!
+MODULE m
+  implicit character(s)
+  INTEGER :: I(1) = (/ (SELECTED_INT_KIND(J),J=1,1) /)
+END MODULE m
+
+MODULE s_TESTS
+  IMPLICIT CHARACTER (P)
+CONTAINS
+  subroutine simple (u,j1)
+    optional ::  j1
+    if (present (j1)) stop
+  end subroutine
+END MODULE s_TESTS
+
+! { dg-final { cleanup-modules "m s_TESTS" } }
-- 
cgit v1.2.1