! { dg-do run } | |
! { dg-options "-std=f2003 " } | |
! PR fortran/38936 | |
! Check association and pointers. | |
! Contributed by Daniel Kraft, d@domob.eu. | |
PROGRAM main | |
IMPLICIT NONE | |
INTEGER, TARGET :: tgt | |
INTEGER, POINTER :: ptr | |
tgt = 1 | |
ASSOCIATE (x => tgt) | |
ptr => x | |
IF (ptr /= 1) STOP 1 | |
ptr = 2 | |
END ASSOCIATE | |
IF (tgt /= 2) STOP 2 | |
END PROGRAM main |