From af0c51ac87ab2a87caa03fa108f0d164987a2764 Mon Sep 17 00:00:00 2001
From: Ben Cheng <bccheng@google.com>
Date: Thu, 28 Mar 2013 11:14:20 -0700
Subject: [GCC 4.8] Initial check-in of GCC 4.8.0

Change-Id: I0719d8a6d0f69b367a6ab6f10eb75622dbf12771
---
 .../gfortran.dg/optional_assumed_charlen_1.f90        | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 gcc-4.8/gcc/testsuite/gfortran.dg/optional_assumed_charlen_1.f90

(limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/optional_assumed_charlen_1.f90')

diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/optional_assumed_charlen_1.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/optional_assumed_charlen_1.f90
new file mode 100644
index 000000000..5c929e8ae
--- /dev/null
+++ b/gcc-4.8/gcc/testsuite/gfortran.dg/optional_assumed_charlen_1.f90
@@ -0,0 +1,19 @@
+! { dg-do compile }
+! Tests the fix for PR29284 in which an ICE would occur in converting
+! the call to a suboutine with an assumed character length, optional
+! dummy that is not present.
+!
+! Contributed by Rakuen Himawari  <rakuen_himawari@yahoo.co.jp>
+!
+      MODULE foo
+      CONTAINS
+        SUBROUTINE sub1(a)
+          CHARACTER (LEN=*), OPTIONAL :: a
+          WRITE(*,*) 'foo bar'
+        END SUBROUTINE sub1
+
+      SUBROUTINE sub2
+        CALL sub1()
+      END SUBROUTINE sub2
+
+     END MODULE foo
-- 
cgit v1.2.3