From: Tobias Burnus <burnus@net-b.de>
Date: Tue, 22 Jan 2008 16:43:20 +0000 (+0100)
Subject: re PR fortran/34907 (valgrind error indication from testsuite trans-types.c: gfc_type... 
X-Git-Tag: releases/gcc-4.3.0~477
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2ddd2871085a3bf35e2429390272301d8c6ab851;p=thirdparty%2Fgcc.git

re PR fortran/34907 (valgrind error indication from testsuite trans-types.c: gfc_typenode_for_spec)

2008-01-22  Tobias Burnus  <burnus@net-b.de>

       PR fortran/34907
       * parse.c (parse_spec): Change = into ==.

From-SVN: r131728
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 72af9f03ca66..fd6efa3dbba9 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-22  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/34907
+	* parse.c (parse_spec): Change = into ==.
+
 2008-01-22  Daniel Franke  <franke.daniel@gmail.com>
 
 	PR fortran/34915
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index e57e10df51df..64d8c3329171 100644
--- a/gcc/fortran/parse.c
+++ b/gcc/fortran/parse.c
@@ -2189,7 +2189,7 @@ loop:
 
       gfc_current_block ()->ts.kind = 0;
       /* Keep the derived type; if it's bad, it will be discovered later.  */
-      if (!(ts->type = BT_DERIVED && ts->derived))
+      if (!(ts->type == BT_DERIVED && ts->derived))
         ts->type = BT_UNKNOWN;
     }