Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/list_read_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 }
! PR 42422 - read with a repeat specifyer following a separator
program main
  integer, dimension(10) :: i1, i2

  i1 = 0
  i2 = (/ 1, 2, 3, 5, 5, 5, 5, 0, 0, 0 /)
  open (10,file="pr42422.dat")
  write (10,'(A)') ' 1 2 3 4*5 /'
  rewind 10
  read (10,*) i1
  if (any(i1 /= i2)) call abort
  close (10,status="delete")
end program main