[to-be-committed] [RISC-V] Use Zbkb for general 64 bit constants when profitable
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr91566.f90
blobfdb35b44199bdaa26922feede76e90cdc78f81be
1 ! { dg-do compile }
2 ! Code contributed by Gerhard Steinmetz
3 program p
4 call q
5 call r
6 end program p
8 subroutine q
9 print *, -merge([3,4], 0, [.false.,.true.])
10 end
12 subroutine r
13 print *, 2 + merge([3,4], 0, [.false.,.true.])
14 end