diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 61eb67b8b9a..0fc9d97e6f0 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2019-04-03  Dominique d'Humieres  <dominiq@gcc.gnu.org>
+
+	PR fortran/89375
+	* expr.c (comp_pointer): Remove redundant condition.
+
 2019-03-31  Harald Anlauf  <anlauf@gmx.de>
 
 	PR fortran/83515
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c
index 478a5557723..47ec35f6d8a 100644
--- a/gcc/fortran/expr.c
+++ b/gcc/fortran/expr.c
@@ -4782,7 +4782,6 @@ static bool
 comp_pointer (gfc_component *comp)
 {
   return comp->attr.pointer
-    || comp->attr.pointer
     || comp->attr.proc_pointer
     || comp->attr.class_pointer
     || class_pointer (comp);