Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr17285.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! pr 17285 ! Test that namelist can read its own output. ! At the same time, check arrays and different terminations ! Based on example provided by paulthomas2@wanadoo.fr program pr17285 implicit none integer, dimension(10) :: number = 42 integer :: ctr, ierr namelist /mynml/ number open (10, status = "scratch") write (10,'(A)') & "&mynml number(:)=42,42,42,42,42,42,42,42,42,42,/ " write (10,mynml) write (10,'(A)') "&mynml number(1:10)=10*42 &end" rewind (10) do ctr = 1,3 number = 0 read (10, nml = mynml, iostat = ierr) if ((ierr /= 0) .or. (any (number /= 42))) & call abort () end do close(10) end program pr17285