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

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 }
      character(len=4) a
      open (10, status='scratch')
      write (10,'(A)') '1\n2'
      rewind (10)
      read (10,'(A)') a
      if (a /= '1\n2') call abort
      end