repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
[to-be-committed] [RISC-V] Use Zbkb for general 64 bit constants when profitable
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr91566.f90
blob
fdb35b44199bdaa26922feede76e90cdc78f81be
1
! { dg-do compile }
2
! Code contributed by Gerhard Steinmetz
3
program
p
4
call
q
5
call
r
6
end program
p
7
8
subroutine
q
9
print
*, -
merge
([
3
,
4
],
0
, [.
false
.,.
true
.])
10
end
11
12
subroutine
r
13
print
*,
2
+
merge
([
3
,
4
],
0
, [.
false
.,.
true
.])
14
end