slash_1.f90\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/slash_1.f90

blob: 854d5d578f6834aaefd17ee640e122920f8c90b2 (plain)

! PR libfortran/22170
! { dg-do run }
  integer i
  open (10,status='scratch')
  write (10,'(A,2/,A)') '12', '17'
  rewind (10)
  read (10,'(I2)') i
  if (i /= 12) STOP 1
  read (10,'(I2)') i
  if (i /= 0) STOP 2
  read (10,'(I2)') i
  if (i /= 17) STOP 3
  end