re PR fortran/84219 (Failure to generate error for IO of transfer intrinsic, when...

2018-03-02  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/84219
	* gfortran.dg/coarray_47.f90: Use the correct test.

From-SVN: r258128

diff --git a/gcc/testsuite/gfortran.dg/coarray_47.f90 b/gcc/testsuite/gfortran.dg/coarray_47.f90
index c33eb9c2d7cbc7a401da3b12c9dbddeb0139b9a5..ad83920fca50cf6494f12c084d30e9dd331871ad 100644 (file)
--- 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