Message ID | alpine.LSU.2.20.1805030931220.24704@zhemvz.fhfr.qr |
---|---|
State | New |
Headers | show |
Series | Fix gfortran.dg/pr51434.f90 testcase | expand |
Index: gcc/testsuite/gfortran.dg/pr51434.f90 =================================================================== --- gcc/testsuite/gfortran.dg/pr51434.f90 (revision 259879) +++ gcc/testsuite/gfortran.dg/pr51434.f90 (working copy) @@ -6,7 +6,7 @@ module foo character(len=1), parameter :: s(n) = 'a' type :: a integer :: m = n - character(len=1):: t(n) = transfer('abcde ', s) + character(len=1):: t(n) = transfer('abcde', s) end type a end module foo