! { 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