Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/arrayio_10.f90 @ 120:f93fa5091070

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix conv1.c
author mir3636
date Thu, 08 Mar 2018 14:53:42 +0900
parents 04ced10e8804
children 84e7813d76e9
line wrap: on
line source

! { dg-do run }
! PR29563 Internal read loses data.
! Test case submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
! Without patch, values get muddled.
program pr29563
  character(len=4), dimension(3)::arraydata = (/'1123',' 456','789 '/)
  real(kind=8), dimension(3) :: tmp
  read(arraydata,*,iostat=iostat)tmp
  if (tmp(1).ne.1123.0) call abort()
  if (tmp(2).ne.456.0) call abort()
  if (tmp(3).ne.789.0) call abort()
end program pr29563