1! { dg-do run }
2! { dg-options "-fcray-pointer" }
3!
4! PR fortran/45187
5!
6module foo
7 implicit none
8 real :: a
9 pointer(c_a, a)
10end module foo
11
12program test
13 use foo
14 real :: z
15 c_a = loc(z)
16 a = 42
17 if (z /= 42) STOP 1
18end program test
19