Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
dec_loc_rval_2.f90
blob: 20eeb854e920493718271fcd5da1ff32c5a27c42 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=gnu"
}
!
!
Test
warnings
for
usage of
%
loc
as
an rvalue without
-
std
=
legacy
.
!
program main
implicit
none
integer
,
volatile
::
i
,
j
,
k
i
=
loc
(
j
)
k
=
%
loc
(
j
)
!
{
dg
-
warning
"Legacy Extension:"
}
end