1! { dg-do run }
2! { dg-options "-std=legacy" }
3!
4! Test the usage of %loc as an rvalue.
5!
6program main
7implicit none
8
9integer :: i, j, k
10
11i =  loc(j)
12k = %loc(j)
13
14if (i .ne. k) then
15  print *, "bad %loc value"
16  STOP 1
17endif
18
19end
20