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