From: Tobias Burnus <burnus@net-b.de>
Date: Sat, 1 Jun 2013 07:50:28 +0000 (+0200)
Subject: re PR fortran/57456 ([OOP] CLASS + CHARACTER ALLOCATE with typespec: For arrays,... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4596d4bfc7f194101047717688d53b785080092e;p=gcc.git

re PR fortran/57456 ([OOP] CLASS + CHARACTER ALLOCATE with typespec: For arrays, the typespec is ignored)

2013-06-01  Tobias Burnus  <burnus@net-b.de>

        PR fortran/57456
        * gfortran.dg/class_array_17.f90: New.

From-SVN: r199573
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 98655cb6881..cba0446cd26 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-01  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/57456
+	* gfortran.dg/class_array_17.f90: New.
+
 2013-05-31  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* ada/acats/floatstore.lst: New.
diff --git a/gcc/testsuite/gfortran.dg/class_array_17.f90 b/gcc/testsuite/gfortran.dg/class_array_17.f90
index 4b3d5ddc3af..e5961e11035 100644
--- a/gcc/testsuite/gfortran.dg/class_array_17.f90
+++ b/gcc/testsuite/gfortran.dg/class_array_17.f90
@@ -30,5 +30,5 @@ program test
   deallocate(y)
 end
 
-! { dg-final { scan-tree-dump-times "__builtin_malloc (40);" 0 "original" } }
+! { dg-final { scan-tree-dump-times "__builtin_malloc \\(40\\);" 1 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }