* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile

[official-gcc.git] / gcc / testsuite / gfortran.dg / dec_loc_rval_2.f90

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