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

blob: 985c0b3bf538873641123f12835d8ac29615c360 (plain)

! { dg-do compile }
! PR fortran/108420
! Contributed by G.Steinmetz

program p
  character :: c = 'c'
  logical   :: m = .true.
  print *, merge(transfer('a', 'b', 0), c, .true.)
  print *, merge(transfer('a', 'b', 0), c, m)
end