gcc/testsuite/gfortran.dg/pr108420.f90

   1 ! { dg-do compile }
   2 ! PR fortran/108420
   3 ! Contributed by G.Steinmetz
   4
   5 program p
   6   character :: c = 'c'
   7   logical   :: m = .true.
   8   print *, merge(transfer('a', 'b', 0), c, .true.)
   9   print *, merge(transfer('a', 'b', 0), c, m)
  10 end