diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 72af9f03ca6..fd6efa3dbba 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 e57e10df51d..64d8c332917 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;
     }