Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
dec_loc_rval_1.f90
blob: 0d27f51cf8df2104b22c189815a731497e52821b [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-std=legacy"
}
!
!
Test
the usage of
%
loc
as
an rvalue
.
!
program main
implicit
none
integer
::
i
,
j
,
k
i
=
loc
(
j
)
k
=
%
loc
(
j
)
if
(
i
.
ne
.
k
)
then
print
*,
"bad %loc value"
STOP
1
endif
end