gcc/testsuite/gfortran.dg/dec_loc_rval_3.f03

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3 !
   4 ! Test errors for usage of %loc as an rvalue with a real standard.
   5 !
   6 program main
   7 implicit none
   8
   9 integer, volatile :: i, j, k
  10
  11 k = %loc(j) ! { dg-error "Legacy Extension:" }
  12
  13 end