gcc/testsuite/gfortran.dg/pr91566.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { dg-do compile }
! Code contributed by Gerhard Steinmetz
program p
   call q
   call r
end program p

subroutine q
   print *, -merge([3,4], 0, [.false.,.true.])
end

subroutine r
   print *, 2 + merge([3,4], 0, [.false.,.true.])
end