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