From: Paul Thomas <pault@gcc.gnu.org>
Date: Fri, 2 Mar 2018 08:51:06 +0000 (+0000)
Subject: re PR fortran/84219 (Failure to generate error for IO of transfer intrinsic, when... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=be86d201598e3b653acc6db1542b0c799c401e09;p=gcc.git

re PR fortran/84219 (Failure to generate error for IO of transfer intrinsic, when MOLD has derived type components.)

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 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