Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr87993.f90
blob: 96d353d64f884382451bc7517d71350f97b1261d [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
Code
contributed
by
Gerhard
Steinmetz
<
gscfq at t
-
online dot de
>
program p
integer
,
parameter
::
a
(
2
)
=
1
integer
,
parameter
::
b
=
a
%
kind
if
(
any
(
a
/=
1
))
stop
1
if
(
b
/=
kind
(
a
))
stop
2
end