From: burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 22 Jan 2008 16:43:20 +0000 (+0000)
Subject: 2008-01-22  Tobias Burnus  <burnus@net-b.de>
X-Git-Tag: upstream/4.9.2~44044
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ad1375863fa7cb559a6adcf93d98b49a7a676944;p=platform%2Fupstream%2Flinaro-gcc.git

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

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



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131728 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 72af9f0..fd6efa3 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 e57e10d..64d8c33 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;
     }