Sign in
gnu
/
gcc
/
0b6b70a0733672600644c8df96942cda5bf86d3d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr91566.f90
blob: fdb35b44199bdaa26922feede76e90cdc78f81be [
file
] [
log
] [
blame
]
!
{
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