verify_2.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/verify_2.f90

blob: 09f5b56f3f9915ff57a38e78727842936d1dc872 (plain)

! { dg-do run }
program verify_2
  character(len=3) s1, s2
  s1 = 'abc'
  s2 = ''
  if (verify('ab', '') /= 1) STOP 1
  if (verify(s1, s2)   /= 1) STOP 2
  if (verify('abc', '', .true.) /= 3) STOP 3
  if (verify(s1, s2, .true.) /= 3) STOP 4
end program verify_2