1! { dg-do run }
2! { dg-options "-std=f2003 -fall-intrinsics" }
3
4! PR fortran/38936
5! Check association and pointers.
6
7! Contributed by Daniel Kraft, d@domob.eu.
8
9PROGRAM main
10  IMPLICIT NONE
11  INTEGER, TARGET :: tgt
12  INTEGER, POINTER :: ptr
13
14  tgt = 1
15  ASSOCIATE (x => tgt)
16    ptr => x
17    IF (ptr /= 1) CALL abort ()
18    ptr = 2
19  END ASSOCIATE
20  IF (tgt /= 2) CALL abort ()
21END PROGRAM main
22