gcc/testsuite/gfortran.dg/merge_char_const.f90

   1 ! { dg-do run }
   2 ! { dg-options "-O0" }
   3 ! This tests the patch for PR24311 in which the PRINT statement would
   4 ! ICE on trying to print a MERGE statement with character constants
   5 ! for the first two arguments.
   6 !
   7 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
   8 !
   9   integer, dimension(6) :: i = (/1,0,0,1,1,0/)
  10   print '(6a1)', Merge ("a", "b", i  == 1) ! { dg-output "abbaab" }
  11   end
  12
  13