re PR fortran/78741 (ICE in gfc_get_symbol_decl, at fortran/trans-decl.c:1534)

[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