Sign in
gnu
/
gcc
/
04a040d907a83af54e0a98bdba5bfabc0ef4f700
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
intrinsic_bounds_1.f90
blob: a9586fb1d1215258acb00b00110d95943955a9f0 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR
54633
-
this
used to be rejected
program main
integer
::
x
(
minval
((
/1/
),
mask
=(
/.TRUE./
)))
integer
,
parameter
::
m
=
minval
((
/1/
))
integer
::
y
(
minval
((
/1/
),
mask
=(
/.TRUE./
)))
end