diff --git a/gcc/testsuite/gfortran.dg/coarray_47.f90 b/gcc/testsuite/gfortran.dg/coarray_47.f90
index c33eb9c2d7c..ad83920fca5 100644
--- a/gcc/testsuite/gfortran.dg/coarray_47.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_47.f90
@@ -8,6 +8,5 @@ program p
       integer, allocatable :: t
    end type
    type(t) :: x
-   integer :: i = -1
-   print *, transfer(i, x) ! { dg-error "cannot have ALLOCATABLE components" }
+   print *, transfer(1, x) ! { dg-error "cannot have ALLOCATABLE components" }
 end