gcc/testsuite/gfortran.dg/dec_loc_rval_2.f90 - gcc - Git at Google

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