Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
maskl_1.f90
blob: 56350e269da48d0c8796b05d84b8d68186a117df [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR fortran
/
103789
!
Check
the absence of ICE
when
generating calls to MASKL
with
a KIND argument
.
program p
integer
::
z
(
2
),
y
(
2
),
x
(
2
)
y
=
[
1
,
13
]
z
=
maskl
(
y
,
kind
=
4
)
+
1
x
=
maskl
(
y
,
4
)
+
1
end
program p