gcc/testsuite/gfortran.dg/dec_loc_rval_1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

! { dg-do run }
! { dg-options "-std=legacy" }
!
! Test the usage of %loc as an rvalue.
!
program main
implicit none

integer :: i, j, k

i =  loc(j)
k = %loc(j)

if (i .ne. k) then
  print *, "bad %loc value"
  STOP 1
endif

end